[VirtualTreeView] Daten später laden

[Coder90]

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!