Objekt-Eigenschaften Liste drucken gib es nicht?

[himitsu]

Sooo schwer ist selbst die alte RTTI nicht.

Delphi-Quellcode:

Uses TypInfo;

Var Obj: TObject;  // halt irgendeine Objektinstanz
  List:  PPropList;

Begin
  i2 := GetPropList(PTypeInfo(Obj.ClassInfo), List);
  If i2 > 0 Then
    Try
      SortPropList(List, i2);  // muß nicht, kann aber
      For i := 0 to i2 - 1 do Begin
        // Name := GetPropName(List[i]);

      End;
    Finally
      FreeMem(List);
    End;
End;