VirtualTreeView und Freigabe

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