B
bfun
Unregistered / Unconfirmed
GUEST, unregistred user!
我在程序中使用了如下语句：
TDataNode=Record
ID:Integer;
end;
PData=^TDataNode;
//------------
P
Data;
Node:TTreeViewNode;
//--------------------
P:=New(PData);
P.ID:=QRY.FieldByName('ID').AsInteger;
Node:=TreeView1.Items.AddChild(Root,QRY.FieldByName('Name').AsString);
Node.Data:=P;
//-----------------------
问：
是否需在程序中逐个释放每个Node.Data中指向的内存？
TDataNode=Record
ID:Integer;
end;
PData=^TDataNode;
//------------
P
Data;Node:TTreeViewNode;
//--------------------
P:=New(PData);
P.ID:=QRY.FieldByName('ID').AsInteger;
Node:=TreeView1.Items.AddChild(Root,QRY.FieldByName('Name').AsString);
Node.Data:=P;
//-----------------------
问：
是否需在程序中逐个释放每个Node.Data中指向的内存？