请问TList类在destroy时是否需要释放其中的指针?(100分)

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-12

• #1

比如
var a: TList;
b: pInteger;
begin
a:= TList.create;
new(b);
b^ = 100;
a.add(b);
end;

到最后需要释放a时是否需要
for i:= 0 to a.count do //要不要这个循环
begin
Dispose(a);
end;
a.free;

 

H

helloqiner

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-12

• #2

不需要，如果是D7则写一句 freeAndNil(a)
就可以了

 

Z

zealothasu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-12

• #3

肯定需要
a.free仅仅是把a释放了

 

S

savetime

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-12

• #4

需要 Dispose ，因为 TList 不知道该指针的值是如何来的，也不会自动释放它。

另外，上面你的循环代码 Count 要减 1 才行。

 

我

我是一只小小鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-12

• #5

要啊
procedure TForm1.Button1Click(Sender: TObject);
var a: TList;
b: pInteger;
begin
a:= TList.create;
new(b);
b^:= 100;
a.add(b);
a.Free;//这里如果是freeandnil(a)也是一样的
showmessage(inttostr(b^));


end;
运行上面的程序
你会发现 b^还在哦

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-12

• #6

要的。
如果想要不要的话，
那得用TObjectList。

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-12

• #7

TObjectList会自动释放其中的指针吗?

 

M

masm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-13

• #8

new多少就Dispose多少，这和TList有什么关系？！
所以一定要这个循环！

 

Y

YANGWEI0308

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-13

• #9

TObjectList 有一个属性：OwnsObjects，为真时，会自动释放所值对象，反之不会。
TList则要手工释放。

 

S

sunjialong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-13

• #10

要手工释放。

 

D

Dr.johns

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-14

• #11

同意Yangwei0308的意见。

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-26

• #12

多人接受答案了。