VirtualStringTree - Speicher freigeben

[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.

[generic]

Dein Record welcher die Daten hält, enthält diese lange Strings?

Wenn ja musst du diese per Hand freigegeben, da Delphi den Speicher des Records nicht selbst verwaltet und daher die String nicht freigeben kann.
Das habe ich damals auf dem 2. Stammtisch gezeigt mit FastMM. Vieleicht gibt es das Video noch irgendwo.
http://www.delphipraxis.net/712774-post4.html

Schnelle Abhilfe ist anstelle von String ein String[255] zu nehmen. (shortstring)
Oder du nimmst Objekte, welche allerdings auch von dir freigegeben werden müssen. Hier erkennt aber Delphi die Hughstrings.

[Zacherl]

Zitat von generic:

Dein Record welcher die Daten hält, enthält diese lange Strings?

Wenn ja musst du diese per Hand freigegeben, da Delphi den Speicher des Records nicht selbst verwaltet und daher die String nicht freigeben kann.

Ich verweise nochmal auf den Code im OnFreeNode Event

Delphi-Quellcode:

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

Das Finalize sorgt dafür, dass auch Strings, dynamische Arrays, etc. im verwendeten Record freigegeben werden.