本文整理自网络,侵删。
用法一
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 {$pointermath on} 方便指针操作的编译指令
Delphi get_hd_serial() 获得磁盘驱动器序列号
Delphi blockread和blockwrite读写文件
更多相关阅读请进入《Delphi》频道 >>