随笔分类 -  Delphi

摘要：通过方法名称，调用方法，并传参数！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.. 阅读全文