Eigenschaften einer Objektinstanz protokollieren, D7

[edvoigt]

Hallo,

ich habe relativ komplexe eigene Objekte. Beim Debuggen kann man sich sehr schön anzeigen lassen, welche Werte in den einzelnen Eigenschaften einer Instanz aktuell vorliegen. Das würde ich gern protokollieren können.

Ein Beispiel:

Delphi-Quellcode:

  TLitem = class(TObject)
    Id: integer;       
    MasterId: integer; 
    Default: integer;  
    Key: string;       
    Name: string;
    enabled,
    checked: boolean;
    function HasSelList(LB: str2): boolean;
  end;

  TlpList = class(TObjectList)
  private
    function GetLitem(aindex: integer): TLitem;
    procedure SetLitem(aindex: integer; const Value: TLitem);
  public
    ItemIndex: integer;
    ItemId: integer;
    SortedById,
    SortedByName: boolean;
    ready: boolean;
    property items[aindex: integer]: TLitem read getLitem write setLitem; default;
    function Add(aLitem: TLitem): integer;
    function AddDetails(aId: integer; aName: string; aIsEnabled: boolean; aEntry: TObject): integer;
...
var
  L1: TlpList;
begin
  L1 := TlpList.Create;
...

Nun möchte ich in verschiedenen Programmsituationen eine Hilfsroutine aufrufen, die mit L1 als Parameter aufgerufen wird und mir eine StringList mit allen aktuellen Werten in L1 liefert. Damit könnte ich mir dann eine Textdatei ausgeben.

Danke, Werner

[mkinzler]

Das Zauberwort heisst RTTI

[edvoigt]

Vielleicht irre ich mich ja, aber meine Objekte sind keine Komponenten. Damit habe ich mir bisher erklärt, warum meine RTTI-Versuche ins Leere liefen.

Es genügt mir ja nicht, den Namen der Properties (außerdem interessieren mich nicht nur Properties, sondern auch alle public-Werte) zu bekommen, sondern natürlich auch die zugehörigen aktuellen Werte.

Vielleicht gibt es eine etwas ausführlichere Antwort. GetPropList will mir nicht so recht verraten, wie der Hase läuft. Alle Fundstellen, die ich vorher angesehen habe, basierten darauf und hatten als Ziel nur Properties, die im Objektinspektor sichtbar sind.

[H4ndy]

Ich glaub du kommst nicht da herum, das fuer jedes Objekt selbst zu schreiben.

Fuege z.B. eine Routine "GetStateString" zu dem Objekt hinzu, was diese Infos ausspuckt.
Im Programm dann halt immer MeinObjekt.GetStateString aufrufen und speichern, anzeigen, o.ae.

[edvoigt]

Hallo Manuel,

daran habe ich auch schon gedacht. Ist nur nicht zu elegant. Habe gerade einen wesentlichen Hinweis gefunden, warum RTTI bei mir nicht funktionieren kann.

TObject und davon abgeleitete Objekte haben keine RTTI. Also müßte man stattdessen von TPersistent ableiten. Das ist natürlich keine Lösung für Objekte, die von Delphis Nachfahren von TObject (z.B. TObjectList) abgeleitet werden.

Die Delphi-Hilfe sagt:

Zitat:

Die Compiler-Direktive $M steuert die Erzeugung der Laufzeit-Typinformationen (RTTI). Wenn eine Klasse im Status {$M+} deklariert wurde oder von einer Klasse abgeleitet ist, die im Status {$M+} deklariert wurde, erzeugt der Compiler Laufzeit-Typinformationen für Felder, Methoden und Eigenschaften, die in einem published-Abschnitt deklariert sind. Ist eine Klasse im Status {$M-} deklariert und nicht von einer Klasse abgeleitet, die im Status {$M+} deklariert wurde, sind published-Abschnitte in dieser Klasse nicht erlaubt. Wenn eine Klasse als forward deklariert ist, muss in der ersten Klassendeklaration $M angegeben werden.

Die Compilerdirektive M+ beschert mir eine Last Syntaxfehler (wegen TObjectList), nun frage ich mich, was mehr Arbeit macht - die Fleissübung GetState... oder der Umstellungsversuch auf TPersistent-Nachfahren.

Da bleibt mir wohl einige Arbeit nicht erspart.

Allerdings bleibt die Frage, wie die IDE die sympathische Anzeige im Debug-Modus realisiert.

Dort funktioniert es nicht nur für Eigenschaften, sondern sogar für private Felder. Da versagt (weil nicht dafür gedacht) RTTI von vornherein.


Werner