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