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!