2012 年 10月 6 日随笔档案 - 白米饭真好吃

2012年10月6日

摘要：通过方法名称，调用方法，并传参数！TStringExec = procedure(const Value:String) of object;procedure TBaseClass.ExecMethod(Sender:TObject;methodName: string;const value:string);var Routine: TMethod; Exec: TStringExec;begin Routine.Data := Pointer(Sender) ; Routine.Code := self.MethodAddress(MethodName) ; if NOT Assig.. 阅读全文

posted @ 2012-10-06 19:32 白米饭真好吃阅读(502) 评论(0) 推荐(0)