VirtualStringTree - Speicher freigeben

[Zacherl]

Zitat von jaenicke:

Finalize solltest du nie aufrufen müssen, da die VST sich um den Speicher kümmert.

Das stimmt nicht. Finalize musst du bei Verwendungs von Records im VST die beispielsweise Strings erhalten auf jeden Fall verwenden.

Ich habe eine Ahnung, warum du Memory leakst. Enthält dein VST zufällig Nodes von denen einige zur Laufzeit niemals sichtbar sind? VST ruft nämlich das OnFreeNode Event nur dann auf, wenn die entsprechende Node vorher validated war. Validiert wird die Node aber erst, wenn sie mindestens einmal gezeichnet wurde.

Hatte dieses Problem vor einigen Jahren auch schonmal. Da mein Datensatz nicht wirklich groß war, habe ich einfach alle Nodes per Hand nach dem Hinzufügen mit der ValidateNode Methode validiert. Kann dir aber nicht sagen, wie sich das bei sehr großen Datenmengen auf die Performance auswirkt.

[Daniel]

Zitat von Zacherl:

Kann dir aber nicht sagen, wie sich das bei sehr großen Datenmengen auf die Performance auswirkt.

Meine Bäume haben (gerade im Frühling *g*) rund 150.000 Einträge und da wirkt sich das explizite ValidateNode() nicht messbar aus.


Größere Records konterkarieren meiner Ansicht nach die Idee des virtuellen Baumes, da man dadurch ja seine Daten doppelt. Der With ist ja, dem Baum ein möglichst schlankes Paket mit auf den Weg zu geben. Ich reiche da i.A. nur einen Pointer auf mein Datenobjekt rein.

[dGeek]

Ich weiß zwar jetzt woran es lag, dass etwa 800 Einträge 100 MB Arbeitsspeicher verschlungen haben und nicht wie vorgesehen etwa 20.

War ein ShortString nicht ein WideChar und belegt somit mehr Speicher? Haut mich, wenn ich mich irre ..

[DeddyH]

Ein ShortString ist ANSI-kodiert (1 Zeichen = 1 Byte).

[himitsu]

String[x] = maximal 256 Byte (x AnsiChars + 1 Längenbyte)

ShortString = String[255]

[Bjoerk]

Wie issn so?

Delphi-Quellcode:

procedure TForm1.VSTFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
var
  Data: PTreeData;
begin
  Data := Sender.GetNodeData(Node);
  Finalize(Data^);
end;

[Zacherl]

Zitat von Bjoerk:

Wie issn so?

Delphi-Quellcode:

procedure TForm1.VSTFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
var
  Data: PTreeData;
begin
  Data := Sender.GetNodeData(Node);
  Finalize(Data^);
end;

Das hat er doch in seinem ersten Post auch so stehen, nur dass er den Tree über VST statt über Sender referenziert. Das Problem sind wirklich die nicht validierten Nodes.