Delphi 将方法以参数的形式传递

RAD Studio 10.2.3 测试√

结果图：

代码：

procedure TForm_Tips.Button_ParamIsFuncClick(Sender: TObject);

type   // 需要先声明一个方法的类型

  TFuncType = function(ANum: Integer): Integer;

  function Func01(n: Integer): Integer;

  begin

    Result := n + 1;

  end;

  function Func02(n: Integer): Integer;

  begin

    Result := n + 2;

  end;

  function TestFunc(ANum: Integer; AFunc: TFuncType): string;

  begin

    Result := IntToStr(AFunc(ANum));

  end;

begin

  Memo_Log.Lines.Add(TestFunc(1, @Func01));

  Memo_Log.Lines.Add(TestFunc(2, @Func02));

  Memo_Log.Lines.Add(TestFunc(3, @Func01));

  Memo_Log.Lines.Add(TestFunc(4, @Func02));

end;

————————————————

原文链接：https://blog.csdn.net/qq_44111597/article/details/120842036