RAD Studio 10.2.3 测试√
结果图:
![](https://img.laitimes.com/img/9ZDMuAjOiMmIsIjOiQnIsIyZuBnLmVDO4kTMzYzMmJWNwEjY4EzM0QTMwAzNidjNwIDNxQzLc52YucWbp5GZzNmLn9Gbi1yZtl2Lc9CX6MHc0RHaiojIsJye.png)
代码:
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;
一点点笔记,以便以后翻阅。