小编Ahm*_*mad的帖子

我需要一个像下面的代码这样的函数（不起作用！这只是一个例子）

type
  TCallBack = procedure( x:String) of object;

procedur procA(CallBack : TCallBack);
begin
    CallBack('hello world')
end;

然后触发 procA 并将过程作为参数传递：

procA( procedure (res : string)
begin
    ShowMessage(res);
end);