Wow Danke!
Hier mein Source:
Delphi-Quellcode:
TNodeData = class
FTextPos: Int64;
FText: String;
end;
procedure TMainForm1.VSTSaveNode(Sender: TBaseVirtualTree;
Node: PVirtualNode; Stream: TStream);
var
Len: Integer;
begin
with GetData(Node) do
begin
Len := Length(FText);
Stream.Write(Len, SizeOf(Len));
Stream.Write(PChar(FText)^, Len);
end;
end;
procedure TMainForm1.VSTLoadNode(Sender: TBaseVirtualTree;
Node: PVirtualNode; Stream: TStream);
var
Len: Integer;
begin
TreeData := VST.GetNodeData(Node);
TreeData.FObject := TNodeData.Create;
with TNodeData(TreeData.FObject) do
begin
FTextPos := Stream.Position;
end;
if not Assigned(aStream) then
begin
aStream := TMemoryStream.Create;
aStream.CopyFrom(Stream, 0);
end;
end;
Und um die Daten später zu laden:
Delphi-Quellcode:
aStream.Position := Data.FTextPos;
aStream.Read(Len, SizeOf(Len));
SetLength(Data.FText, Len);
aStream.Read(PChar(Data.FText)^, Len);
Das funktioniert.
Um die Performance zu testen hab ich eine große Datei geladen.
Doch in der Version ohne Stream, wo alle Daten gleich geladen werden, läd er die Datei sogar schneller als in dieser Version mit Stream.
Die Speicherauslastung ist auch bei beiden gleich.
Scheinbar funktioniert das doch nicht so wie ich mir das Vorgestellt habe. Schade
Trotzdem Danke!