VirtualTreeView und Freigabe

[H.Bothur]

Moin,

sorry mal wieder für eine Dummy-Frage:

Ich habe in meinem Programm unter anderen ein VirtualTreeView mit 500 Einträgen.
Wenn ich mein Programm beende muss ich dann alles wieder freigeben ?

Und wenn ja - so:

Delphi-Quellcode:

var
  Data: PTreeData;
  i: integer;
begin
  for i := 0 to VST.Count -1 do
  begin
    Data := VST.GetNodeData(Node);
    if Assigned(Data) then Data.FCaption:='';
  end;
end;

Gruss
Hans

[Blup]

Der Record selbst wird automatisch freigegeben.
Aber wenn der Record auf Strings, dynamische Arrays, Objekte, Interfaces referenziert oder auf weitere Daten verweist, muss man sich um deren Freigabe selbst kümmern.
Dafür gibt es das Ereignis OnFreeNode:

Delphi-Quellcode:

procedure TMyForm.MyTreeFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
begin
  var lData := PTreeData(Sender.GetNodeData(Node));
  lData.MyString := nil;
  lData.MyArray := nil;
  lData.MyObject.Free;
  lData.MyInterface := nil;
end;

[himitsu]

Wenn der Record via Generics vom VST behandelt wird, dann sollten die managed Typen darin von alleine freigegeben werden. (Interfaces, Strings, dynamische Arrays, Variants und CustomManagedRecords, außer natürlich von Objekt-Instanzen)

Erstellst du den Speicher (z.B. New), dann mußt du auch den Speicher freigeben.


Alternativ, anstatt Records eben mit DatenObjekten ... ich glaub der VST hatte irgendwo sowas, wie ein OwnsObjects.

[mytbo]

Zitat von H.Bothur:

Wenn ich mein Programm beende muss ich dann alles wieder freigeben ?

Es kommt darauf an, wem die Daten gehören. Wenn du sie im Virtual TreeView vorhältst, so:

Delphi-Quellcode:

procedure ...VTVFreeNode(pmSender: TBaseVirtualTree; pmNode: PVirtualNode);
var
  data: PTreeData;
begin
  data := pmSender.GetNodeData(pmNode);
  if data <> Nil then
    Finalize(data^);
end;

Um was sich System.Finalize alles kümmert, kannst du in der Hilfe nachlesen. Alles andere musst du aufräumen. Wie man Daten extern vorhält und Virtual TreeView nur zur Anzeige verwendet, habe ich dir hier gezeigt.

Bis bald...
Thomas