Liste aller Methoden eines Objects zur Laufzeit erstellen

[Oracle]

Ich möchte mir zur Laufzeit eine Liste aller Methoden eines Objekts erstellen und diese in einer Listbox anzeigen lassen.
Gibt es eine Möglichkeit, an diese Informationen zur Laufzeit heranzukommen? Mir würde es auch reichen, wenn ich nur alle public Methoden herausbekäme.

Vielen Dank euch schonmal im Vorraus

[sirius]

Wenn es dir ausreicht, alle published Methoden zu nehmen, dann ja.

[shmia]

Du kommst per RTTI nur an die Published Methoden ran.
Genauer gesagt, bekommst du einen untypisierten Zeiger auf die Methode(n).

Delphi-Quellcode:

var method:TMethod;
  method := GetMethodProp(obj, name_der_methode);
  if Assigned(method.Code) then
     s := TObject(method.Data).ClassName+'.'+TObject(method.Data).MethodName(method.Code)

Wenn du die Signatur der Methode nicht kennst, kannst du sie nicht aufrufen.

[Oracle]

was übergebe ich denn in der Zeile:

method := GetMethodProp(obj, name_der_methode); in der Variable "name der Methode"?

[sirius]

Weis nicht, ob es dafür bereits eine Funktion gibt.

Delphi-Quellcode:

procedure getMethodList(aClass:TClass; const List:TStrings);
Type PMethodEntry=^TMethodEntry;
     TMethodEntry=packed record
       size:Word;
       Adr:pointer;
       Name:Shortstring;
     end;
var mTable:ppointer;
    ClassName:String;
    MethodCount:PWord;
    MethodEntry:PMethodEntry;
    i:integer;
begin
  while aClass<>nil do
  begin
    mTable:=pointer(integer(aClass)+vmtMethodTable);
    if (mTable<>nil)and(mTable^<>nil) then
    begin
      MethodCount:=mTable^;
      MethodEntry:=pointer(integer(MethodCount)+2);
      ClassName:=aClass.ClassName;
      for i:=1 to MethodCount^ do
      begin
        List.add(aClass.ClassName+'.'+MethodEntry^.Name);
        MethodEntry:=pointer(integer(MethodEntry)+MethodEntry^.size);
      end;
    end;
    aClass:=aClass.ClassParent;
  end;
end;

[Oracle]

super!! Danke Sirius deine Variante funktioniert auf Anhieb.
Nun noch eine Frage, bekommt man zusätzlich auch die Signatur heraus?

[Hawkeye219]

Hi,

bei Hallvard Vassbotn findet man einen Blog-Eintrag zu Extended Class RTTI.

Gruß Hawkeye

[sirius]

Mir war doch so, dass ich das schon mal geschrieben hatte.

[Oracle]

Das war der entscheidene Tip. Jetzt läufts. Dankeschön