Type
TFunc = reference to procedure (); // 定义匿名方法
var
Fun: TFunc; // 随用随写
begin
try
Fun:= procedure // 注意本行不能有 ;
begin
Writeln('reference procedure');
end;
Fun();
Delphi 2010 匿名方法
最新推荐文章于 2023-04-27 11:22:14 发布