RTTI : Endlosschleifen beim rekursiven Auslesen eines Objects

**moelski**

Moin !

Ich bin gerade dabei einen kleinen RTTI Browser zu erstellen um die eingerichteten Objekte in unserer Software darzustellen. Dazu baue ich mir einen Tree mit den Objekten auf und wenn man eins anklickt, dann werden die Values des Objekts angezeigt.

Soweit sogut ... Probleme machen mir aber "Querverweise" in den Objekten. Aber der Reihe nach

Zunächst mal gibt es eine Procedure um die Values eines Objekts anzuzeigen (funzt auch super) :

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm_RTTI_Browser.InspectObject( AObject : TObject);

var context   : TRttiContext;

    TypInfo   : TRttiType;

    field     : TRttiField;

    methode   : TRttiMethod;

    value     : TValue;

begin

  Memo.Clear;

  context := TRttiContext.Create;

  TypInfo := context.GetType(AObject.ClassType);

  Memo.Lines.Add(TypInfo.ToString + '  UNIT : ' + AObject.UnitName);

  Memo.Lines.Add('> FIELDS ');

  for field in TypInfo.GetFields do begin

    value := field.GetValue(AObject);

    Memo.Lines.Add(Format('%20s', [field.Name]) + ' = ' +

                   Format('%35s', [value.ToString]) + '  [Class: ' + value.TypeInfo.Name + ']');

  end;

  context.Free;

end;

Dann gibt es aber die Funktion zum Auflisten der Objekte und deren Listen-Unterobjekte. Und da habe ich ein kleines Problem mit ...

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm_RTTI_Browser.ListObjects  (AObject : TObject ; ParentNode : TTreeNode);

var context   : TRttiContext;

    TypInfo   : TRttiType;

    field     : TRttiField;

    value     : TValue;

    Node, SubNode : TTreeNode;

  procedure ListInsideItems(BObject : TObject ; ParentNode : TTreeNode);

  var i : Integer;

  begin

    if BObject.InheritsFrom(TList) then

      for I := 0 to TList(BObject).Count - 1 do begin

        ListObjects(TList(BObject)[I], ParentNode);

      end;

  end;

begin

  context := TRttiContext.Create;

  TypInfo := context.GetType(AObject.ClassType);

  Node := TreeView1.Items.AddChild(ParentNode, TypInfo.ToString);

  SiMain.LogVerbose('TypInfo.ToString' + TypInfo.ToString);

  Node.Data := AObject;

  for field in TypInfo.GetFields do begin

    value := field.GetValue(AObject);

    // Rekursion für TObjectList

    if value.IsInstanceOf(TList) then begin

      SubNode := TreeView1.Items.AddChild(Node, value.ToString); // > TObjectList

      SiMain.LogVerbose('SubNode' + value.ToString);

      SubNode.Data := value.AsObject;

      ListInsideItems(value.AsObject, SubNode);

      SubNode.Expand(True);

    end;

  end;

  Node.Expand(True);

  context.Free;

end;

Das ganze soll rekursiv stattfinden und genau da liegt auch ein Problem.
Bsp:
Wenn ich eine TChart Instanz aufdröseln lasse, dann komme ich irgendwann zu den TAxisItems.
TAxisItems beinhaltet eine Liste mit TAxisItem.
Die werden auch aufgelistet und wir gehen durch die Felder von TAxisItem. Dort gibt es wieder eine Referenz auf die eigentliche Liste TAxisItems.
Und schon hat man eine "runde" Sache und es läuft endlos ...

Frage ist nun, was kann ich machen um solche Rekursionsendlosschleifen zu verhindern?

Das Problem mit TAxisItems ist dabei noch eher einfach. Schlimmer wird es aber wenn man bei jedem Verweis auf das zugrundeliegende Chart immer wieder das Chart neu aufdröseln würde. Also als Beispiel sowas:

markieren

Code:

			Chart

--> Kurve

----> Achse

      > Field mit Verweis auf Chart

RTTI : Endlosschleifen beim rekursiven Auslesen eines Objects

RTTI : Endlosschleifen beim rekursiven Auslesen eines Objects

Forumregeln