VirtualTreeView CopyTo

[Roaster]

Hi,

nachdem mehrere Versuche dies mit OnLoadData/OnSaveData sowie mit CopyTo() nun fehlgeschlagen sind habe ich mich mal versucht den VST1 nach VST2 mittels einer Schleife zu kopieren.

Nach mehr oder weniger erfolgreichen Versuchen, bin ich leider auf keine Lösung gekommen, bei der der Inhalt von VST1 nach VST2 richtig kopiert wurde. Meistens verfing sich das Programm in einer Endlosschleife oder die hierarchische Struktur stimmte am Ende nicht.
Derzeit sieht das Coding so aus:

Delphi-Quellcode:

  function CopyDataAndNode(ParentNode, Node : PVirtualNode) : PVirtualNode;
  var
    SrcNodeData : TLckThisTreeNode;
    DestNodeData : TLckThisTreeNode;
  begin
    SrcNodeData := TLckThisTreeNode(SrcVST.GetNodeData(Node)^);
    DestNodeData := TLckThisTreeNode.Create;
    DestNodeData.Assign(SrcNodeData);
    Result := DestVST.AddChild(ParentNode, DestNodeData);
  end;

  function AddRootNode(ParentNode, SrcRoot : PVirtualNode) : PVirtualNode;
  begin
    Result := CopyDataAndNode(ParentNode, SrcRoot);
  end;

  function AddChildNodes(DestParent, Node : PVirtualNode) : PVirtualNode;
  begin
    while Assigned(Node) do
    begin
      Result := CopyDataAndNode(DestParent, Node);
      Node := SrcVST.GetNext(Node);
      if SrcVST.GetNodeLevel(Node) > SrcVST.GetNodeLevel(Src.GetPrevious(Node)) then
        AddChildNodes(Result, Node)
    end;
  end;

begin
  DestVST.BeginUpdate;
  DestVST.Assign(SrcVST);
  DestVST.Clear;
  SrcNode := SrcVST.GetFirst;
  //  Add root
  RootNode := AddRootNode(Nil, SrcNode);
  // Add nodes  
  AddChildNodes(RootNode, Src.GetNext(SrcNode));
[..]
end;

Wie gesagt es handelt sich um einen hierarchischen Baum, so dass zu einem Knoten durchaus mehrere Unterknoten existieren können.

Die Funktion CopyTo läuft hier nicht, da meine Daten, die am Knoten hängen, aus VST1 nicht mitkopiert werden. Wie im ersten Posting zu sehen habe ich als Datenstruktur keinen Record verwendet, sondern eine Klasse. Da CopyTo intern bereits die Knoten anlegt, aber mir keine Gelegenheit bietet die Daten noch unterzubringen, scheidet diese Funktion hier aus.

Kann mir jemand Hilfestellung geben? Im Forum findet sich bisher partout nichts zum Thema Baum kopieren.
Danke!