Delphi 将函数作为参数进行调用.rar

Delphi将函数作为参数进行调用，在本例中，将完成函数参数的性质转变，相加或相减，运行出不同的结果，在制作计算器的时候，尤其有用，具体代码：　　procedureTForm1.RunProc(ParaA,ParaB:Integer;FunType:TFunctionType);　　begin　　Edit3.Text:=IntToStr(FunType(ParaA,ParaB));　　end;　　procedureTForm1.Button1Click(Sender:TObject);　　begin　　RunProc(StrToInt(Edit1.Text),StrToInt(Edit2.Text),Add);　　e