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) :

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 ...

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:

Code:

Chart
--> Kurve
----> Achse
      > Field mit Verweis auf Chart