Objecte zwischenspeichern

[nahpets]

Hallo Emil,

könnte Dir das helfen?

Delphi-Quellcode:

{ Die Funktion prüft, ob die übergebene Klasse ein Attribut mit dem angege-    }
{ benen Namen hat.                                                             }
Function HasProperty(AClass : TObject; APropertyName : String) : Boolean;
Var
         MyPropInfo : PPropInfo;
Begin
  MyPropInfo := GetPropInfo(AClass.ClassInfo, APropertyName);
  Result := MyPropInfo <> NIL;
End;

PPropInfo wird in TypInfo definiert.

Über die TypInfo sollte es Dir gelingen, eine vollständige Dokumentation Deiner Klassen/Objekte zu erstellen. Es ist allerdings etwas kryptisch.

GetPropInfos(AClass.ClassInfo, PropList); liefert Dir eine Liste aller Properties, hier kannst Du z. B. den Typ abfragen

PropList[i]^.PropType^.Kind über

GetPropValue(AClass,PropList[i]^.Name,True) bekommst Du den der Eigenschaft zugewiesenen Wert, ohne die Klasse/das Objekt zu kennen.

Schau doch einfach mal da http://www.montefiore.ulg.ac.be/~lat...unitsse82.html, ob Du was brauchbares findest, eventuell hilft Dir auch das http://www.swissdelphicenter.ch/torr...de.php?id=1084 weiter.

Stephan