Nodes einer VirtualStringTree hinzufügen - aber schneller!

[Jim Carrey]

Ich füge aktuell einer VirtualStringTree einiges An Einträgen hinzu.
Ungefähr so

Delphi-Quellcode:

procedure AddVSTStructure(aVST: TVirtualStringTree; aRecord: TTreeData);
var
 Data: PTreeData;
 Node: PVirtualNode;
begin
 Node := aVST.AddChild(nil);
 Node.CheckType := ctCheckBox;
 Node.CheckState := csCheckedNormal;

 Data := aVST.GetNodeData(Node);
 Data^ := aRecord;
end;

Mein Record ist ein ganz normales Record

Delphi-Quellcode:

type
 PTreeData = ^TTreeData;

 TTreeData = record
  iIndex: Integer;
  // Hier stehen ein paar Variablen.. Strings, Boolean etc
 end;

Das Hinzufügen dauert komischerweise recht lange, obwohl VirtualStringTree1.BeginUpdate und VirtualStringTree1.EndUpdate schon gesetzt sind.
Ist das normal, dass das bei 100000 Einträgen und mehr in etwa 10 Sekunden dauert?

[Aviator]

Dann musst du umstellen. Setze den RootNodeCount des Trees auf den gewünschten Wert und benutze die Events

Delphi-Quellcode:

OnInitNode()

und

Delphi-Quellcode:

OnInitChildren()

. Beispiele kann ich aktuell nicht machen. Erst so in 2 Stunden wieder.

Lies dir auch mal den großen Kommentar zu AddChild() durch den Mike Lischke drüber geschrieben hat. Die Funktion sollte man eigentlich nicht verwenden.

[Jim Carrey]

Ist es schlimm, wenn der RootNodeCount höher ist als die Anzahl der Nodes die danach angezeigt werden?
Denn ich sehe gerade erst, dass ich tatsächlich nirgendwo RootNodeCount setze!

[jaenicke]

Es geht noch einmal deutlich schneller, wenn du mit Klassen statt mit Records arbeitest. Beim Hinzufügen wie du es jetzt machst wird der Record einmal bei der Übergabe an AddVSTStructure und einmal beim Zuweisen an den Knoten komplett kopiert.

Wenn du hingegen eine Klasse benutzt, wird nur der Pointer kopiert. Damit habe ich 1 Million Einträge in 2 Sekunden hinzugefügt. Komplettes Beispiel:

Delphi-Quellcode:

type
  TTest = class
  private
    FTestProperty: string;
  public
    constructor Create(const AValue: string);
    property TestProperty: string read FTestProperty write FTestProperty;
  end;

  TForm103 = class(TForm)
    VirtualStringTree1: TVirtualStringTree;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure VirtualStringTree1FreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
    procedure VirtualStringTree1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
      TextType: TVSTTextType; var CellText: string);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

//...

procedure TForm103.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  VirtualStringTree1.BeginUpdate;
  try
    for i := 1 to 1000000 do
      VirtualStringTree1.AddChild(nil, TTest.Create('Knoten ' + IntToStr(i)))
  finally
    VirtualStringTree1.EndUpdate;
  end;
end;

procedure TForm103.VirtualStringTree1FreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
begin
  VirtualStringTree1.GetNodeData<TTest>(Node).Free;
end;

procedure TForm103.VirtualStringTree1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
  TextType: TVSTTextType; var CellText: string);
begin
  CellText := VirtualStringTree1.GetNodeData<TTest>(Node).TestProperty;
end;

{ TTest }

constructor TTest.Create(const AValue: string);
begin
  FTestProperty := AValue;
end;

NodeCount für den Knoten setzen und später initialisieren geht natürlich noch schneller, ist aber meist auch etwas aufwendiger.

[Jim Carrey]

Ich habe mein Record jetzt mal auf Class umgestellt...

Delphi-Quellcode:

TreeData := TTreeData.Create;
TreeData.iIndex := ...
TreeData.einString := ...

Es hat tatsächlich einen Geschwindigkeitsvorteil gebracht. Mein kompletter Prozess dauert nun in etwa je nach Laune des Rechners 3,0 bis 3,2 Sekunden.
Ich füge der VST 100000 Einträge hinzu aber es passiert noch viel viel mehr im Hintergrund. Ich denke die 3 Sekunden sind also OK.

[Aviator]

3 Sekunden für 100.000 Nodes sind doch noch sehr lange finde ich. Es kommt natürlich auch darauf an, wo du deine Informationen zum Füllen der Klasseninstanzen herbekommst.

Ich würde dir aber empfehlen, dass über RootNodeCount zu machen. Dann werden nämlich nur die Nodes initialisiert die aktuell angezeigt werden. Alle Children bspw. erst dann, wenn du sie aufklappst.

Wenn du dazu noch ein Beispiel brauchst, dann sag bescheid. Dann schreib ich dir schnell eins oder schaue ob ich noch irgendwo eins finde.

[Jim Carrey]

Ich finde die 3 Sekunden eigentlich OK. Wie gesagt wird noch verdammt viel zeitgleich gemacht (Dateivergleiche usw) - wirklich sehr viel =)

Das mit dem RootNodeCount verstehe ich noch nicht genau. Wenn ich RootNodeCount := XYZ mache (XYZ = die Anzahl meiner Daten), dann sehe ich in meiner VST alles doppelt und die ersten XYZ sind leer.

Deine Art die Nodes freizugeben funktioniert bei mir nicht. Ich mache es immer so

Delphi-Quellcode:

var
 Data: PTreeData;
begin
 Data := VST.GetNodeData(Node);
 Finalize(Data^);

Nun meckert der Compiler, dass der Ausdruck kein Initialize/Finalize benötigt.

[Aviator]

Wenn du RootNodeCount setzt, dann wird das vst.AddChild() überflüssig. Vorher solltest du natürlich (wie auch bei AddChild()) vst.Clear aufrufen. Der Code den du dann in deiner Funktion ausführst die AddChild aufruft wird dann in das OnInitNode Event verlagert. Dort wird dann pro Node die entsprechende NodeData gesetzt. Habe aktuell kein Beispiel zur Hand, werde dir aber morgen früh eins zusammenbauen wenn es so lange Zeit hat.

[Jim Carrey]

Ok jetzt verstehe ich auch was du damit meintest, dass der Node nur geladen wird wenn er angezeigt wird.
Ich glaube ich warte besser auf dein Beispiel, bevor ich mir alles verhuntze :(

Letzte Frage für heute: wie gebe ich die Nodes denn wieder frei, wenn er bei Finalize meckert?

Mein Problem ist folgendes...
der Speicherverbrauch meiner Anwendung liegt beim Start bei 11 MB. Nachdem die VST gefüllt ist bei 70 MB. Wenn ich das Formular mit der VST schließe bleibt alles bei 70 MB.

[Zacherl]

Zitat:

Zitat von Aviator (Beitrag 1349905)

Wenn du dazu noch ein Beispiel brauchst, dann sag bescheid. Dann schreib ich dir schnell eins oder schaue ob ich noch irgendwo eins finde.

Mich würde das auf jeden Fall interessieren :stupid: Habe bisher nie mit so riesigen Datenmengen gearbeitet und deshalb immer nur

Delphi-Quellcode:

AddChild

verwendet, aber die Methode mit dem nachträglichen Initialisieren klingt interessant.