摘要: 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... 阅读全文
posted @ 2012-09-29 21:15 TryHard 阅读(985) 评论(0) 推荐(0) 编辑