[SOLVED] VirtualStringTree FreeNode

[Pe3s]

Hello I have a question regarding FreeNode
In the VirtualStringTree documentation there is such a code

Code: Pascal  [Select][+][-]

1. procedure TForm1.VSTFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
2. var
3.   Data: PData;
4. begin
5.   Data := VST.GetNodeData(Node);
6.     Data^.Imie := '';
7.     Data^.Nazwisko := '';
8.     Data^.Telefon := '';
9. end;  
10.  

Wouldn't it be better to replace it with such a code

Code: Pascal  [Select][+][-]

1. procedure TForm1.VSTFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
2. var
3.   Data: PData;
4. begin
5.   Data := Sender.GetNodeData(Node);
6.   Finalize(Data^);
7. end;  
8.  

[jamie]

If you didn't use managed types you wouldn't need to worry about that.

[Pe3s]