new(TVData) 如何释放？(20)

F

formiss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-10

• #1

new(TVData);TVData^.VolCode := GetDiskVolSerialID(DriveChar);TVData^.VolName := DriveChar;TVData^.VolTitle := DStr1;iItem.Data := TVData;//Dispose(TVData);{如果加了这句，就会出问题。如果不加，就会造成内存泄露。}TVData什么时候释放呢？

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-10

• #2

procedure TForm1.TreeView1Deletion(Sender: TObject
Node: TTreeNode);begin// TreeView1.OnDeletion 事件 Dispose( TVData(Node.data) );end;

 

H

hhjjhhjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-10

• #3

Deletion事件If Item.Data <> Nil Then Dispose(TVData(Item.data) );呵呵，和znxia说的一样。

 

F

formiss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-17

• #4

多人接受答案了。