【文件属性】：
文件名称：Delphi 将函数作为参数进行调用.rar
文件大小：7KB
文件格式：RAR
更新时间：2022-07-30 12:37:28
Delphi源码-其它类别
Delphi 将函数作为参数进行调用，在本例中，将完成函数参数的性质转变，相加或相减，运行出不同的结果，在制作计算器的时候，尤其有用，具体代码：
procedure TForm1.RunProc(ParaA, ParaB: Integer; FunType: TFunctionType);
begin
Edit3.Text := IntToStr(FunType(ParaA,ParaB));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
RunProc(StrToInt(Edit1.Text),StrToInt(Edit2.Text),Add);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
RunProc(StrToInt(Edit1.Text),StrToInt(Edit2.Text),Sub);
end;
【文件预览】：
codesc.net
----Delphi 将函数作为参数进行调用()
--------Unit1.ddp(51B)
--------Project1.res(876B)
--------Unit1.dcu(5KB)
--------Unit1.dfm(1KB)
--------Project1.cfg(434B)
--------Project1.dpr(188B)
--------Project1.dof(3KB)
--------Unit1.pas(1KB)