Código Delphi [-] uses TypInfo; procedure GetObjMethod(AObj: TObject; TS: TStrings); var i: integer; PInfo: PPropList; begin for i := 0 to GetPropList(AObj.ClassInfo, PInfo) do if(PInfo^[i].PropType^.Kind = tkMethod) then TS.Add(PInfo^[i].Name); end;
uses TypInfo; procedure GetObjMethod(AObj: TObject; TS: TStrings); var i: integer; PInfo: PPropList; begin for i := 0 to GetPropList(AObj.ClassInfo, PInfo) do if(PInfo^[i].PropType^.Kind = tkMethod) then TS.Add(PInfo^[i].Name); end;