摘要:
program Project2;{$APPTYPE CONSOLE}uses SysUtils;type //定义一个对象事件方法 TCallbackFunc = function (i: Integer): Integer of object; TMyCallBackObject = class private FcallBack: TCallbackFunc; function SetcallBack(const Value: TCallbackFunc): Integer; public function call(param: In... 阅读全文