本文整理自网络,侵删。
用法一
Type TProc=procedure() of object;
procedure Callback(proc:TProc);
begin
...
end;
procedure myproc()
begin
...
end;
Callback(myproc);
用法二
type TProc= reference to Procedure();
procedure Callback(proc:TProc);
begin
....
end;
Callback(
procedure()begin
end;
);
https://www.cnblogs.com/onexyz/p/12090649.html
相关阅读 >>
Delphi idtcpclient和idtcpserver主要属性
Delphi 判断时间是否是下午 dateutils.ispm
Delphi 从indy9升级到indy10时idtcpserver的变化
Delphi几个进制相关的代码(hextoint、hextoasc)
更多相关阅读请进入《Delphi》频道 >>