文件名称：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)