控件的FREE问题 (50分)

虾

虾仔

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #1

procedure TForm1.btnSendClick(sender:tobject);
var
strContents:TStringList;
nmsmtp2:tnmsmtp;
mysyspathchar;
syspath:string;
begin
strContents:=TStringList.Create;
nmsmtp2:=tnmsmtp.create(form1);
with nmsmtp2 do
begin
port:=25;
host:='smtp.gdgz.cnuninet.net';
onconnect:=nmsmtp2connect;
end;
。
。
。
//中间没用到其它的控件和过程，只是对nmsmtp2的操作
。
。
nmsmtp2.Free;
strcontents.Free;
end;


为什么我每次调用上面的过程占用的内存都增加？

 

D

Distachio

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #2

可能是指针没有释放掉吧
试试 strcontents:=nil 的写法

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #3

FreeAndNil(nmsmtp2);

 

S

svw0506

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #4

用两个try....finally ...end;封装一下
strContents := TStringList.Create;
try
nmsmtp2 := tnmsmtp.create(form1);
try
with nmsmtp2 do
begin
port := 25;
host := 'smtp.gdgz.cnuninet.net';
onconnect := nmsmtp2connect;
end;
.....
//中间没用到其它的控件和过程，只是对nmsmtp2的操作
.....
finally
nmsmtp2.Free;
end;
finally
strcontents.Free;
end;

 

P

pcc_mmz1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #5

我想可能某些地主你创建了一些对象，但你没有显示地删除它。
你可以将其赋值为 Nil看看。

 

D

DEN

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #6

我也有同樣的問題.
還有:
1.為何 Application.Minimize 時回釋放大量Memory,再Restore 時都不回還原?
2.窗體釋放後為何其佔用的 Memory 不回完全釋放掉.我時這樣作的;
如:
form1:= Tfrom1.Create(Self);
form1.Show;
在form1的 Destory 事件中 有
form1:= nil ;
在form1的 Close 事件中 有
Action:= CaFree;
用Close 方法關閉窗體的.

-------------------------------------------
[]不好意思,虾仔兄,佔你寶地一用,我再出100 分.

 

D

DEN

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #7

to pcc_mmz1 ; 赋值为 Nil 只是將指向他的指針不再指向他吧,這樣也不會釋放掉他呀.

 

D

Distachio

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #8

好象nil不是这个意思吧!!!

 

虾

虾仔

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #9

to ysai:我刚试了一次，不行。
to Distachio:设为nil试过了，不行。
to pcc_mmz1:运行当中没运行其它过程，只执行btnsendclick,而且其中也没涉及其它控件。
to svw056：应该和你说的没关系，因为执行中没出什么异常。

 

虾

虾仔

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #10

我刚才跟踪了一下，发现TStringList分配的内存很少，Tnmsmtp分配有96K，但FREE的时候只释放了76-80K
所以第次调用都有16-20K的增加。