Datei schnell in VST laden

[kng]

Hallo,

Ich arbeite heute zum ersten mal mit dem Virtual String Tree und habe bis jetzt nur das DP Stammtisch Video gesehen.

Jetzt wollte ich zum testen mal die Zeilen einer Datei in erste Spalte schreiben.

Das habe ich so gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  F: TextFile;
  sLine: string;
begin
  AssignFile(F, 'C:\test.txt');
  try
    Reset(F);
    try
      VST.BeginUpdate;
      try
        while not EOF(F) do
        begin
          ReadLn(F, sLine);
          String(VST.GetNodeData(VST.AddChild(nil))^) := sLine;
        end;
      finally
        VST.EndUpdate;
      end;
    finally
      CloseFile(F);
    end;
  except

  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  vst.NodeDataSize := SizeOf(String);
end;

procedure TForm1.vstGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
begin
  CellText := String(VST.GetNodeData(Node)^);
end;

Ist es so richtig, oder kann man es auch besser machen?
Ich finde, dass es sehr langsam und nicht sehr effektiv ist.

Danke!