Hallo,
Zitat von
GuenterS:
Wie es aussieht, klappt das Schreiben der Nodes.
Da bin ich nicht so sicher.
Zu vstSaveNode():
Delphi-Quellcode:
begin
...
lTreeData := Sender.GetNodeData(Node);
...
Stream.WriteBuffer(lTreeData.FileName[1], lIntegerData);
end;
Zu vstLoadNode():
Delphi-Quellcode:
lTreeData: PTreeData;
lEntryType: TEntryType;
lIntegerData: integer;
lFileName: string;
begin
lTreeData := Sender.GetNodeData(Node);
...
Stream.Read(lTreeData.FileName[1], lIntegerData);
case lTreeData.EntryType of
...
Zitat von
GuenterS:
Die NodeDataSize ist vorher schon auf die Größe von PTreeData festgelegt.
Besser wäre SizeOf(TTreeData).
Freundliche Grüße vom marabu