Hallo! Danke für deine schnelle Antwort
Leider finde ich diesen Befehl nicht.
Aber hab mir das jedoch weiter angesehen, folgendes kommt auch noch vor:
procedure TFrmMain.VSTArchivSaveNode(Sender: TBaseVirtualTree; Node: PVirtualNode; Stream: TStream);
var
NodeData: PArchivData;
size: integer;
Buffer: string;
begin
NodeData := VSTArchiv.GetNodeData(Node);
Buffer := NodeData.Value[0];
Size := Length(Buffer);
Stream.Write(Size, SizeOf(Size));
Stream.Write(PChar(Buffer)^, Size);
Buffer := NodeData.Value[1];
Size := Length(Buffer);
Stream.Write(Size, SizeOf(Size));
Stream.Write(PChar(Buffer)^, Size);
end;
...
WriteLN(DBChannel[1], 'SaveToFile Prog 0 = ' + Path+ '\' +
VSTArchiv.Text[TNode, 0] + VSTArchiv.Text[TNode, 1] + '.dat');
{$ENDIF}
VSTArchivList.SaveToFile(Path + '\' +
VSTArchiv.Text[TNode, 0] + VSTArchiv.Text[TNode, 1] + '.dat');
...
procedure VSTArchivListSaveNode(Sender: TBaseVirtualTree;
Node: PVirtualNode; Stream: TStream);
Hilft dir das bzgl. Analyse was weiter?
Vielen Dank!
lg