Question

delphi 7 做多线程程序，内存不断增加，怎么解决？

type
Tmythread = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;

procedure Tmythread.Execute;
var
s1,s2,ReadStr,sendstr:string; //ReadStr,
j,i,m,n:integer;
begin
readstr:=ReadS;
ReadS:='';
FreeOnTerminate:=true;
EnterCriticalSection(cs);
try
while trim(ReadStr)<>'' do
begin
i:=length(ReadStr);
s1:=leftstr(ReadStr,1);
j:=pos(';',ReadStr);
if (j>0) then
begin

s2:=leftstr(ReadStr,j);
case TypeList.IndexOf(s1) of
0:begin
Frm_ISMain.ReadSearch(s2);
end;
1:begin
//Frm_ISMain.ReadData(s2);
end;
2:begin
//Frm_ISMain.PowerChange(s2);
end;
else
break;
end;//case
if j=i then
ReadStr:=''
else if j<i then
ReadStr:=Rightstr(ReadStr,i-j);
end
else
break; //if
end; //while
Finally
LeaveCriticalSection(CS);
end;
end;

Answer 1

内存泄露是因为有对象被创建或者内存被申请等，最终没有被释放，才造成内存被消耗，从上面代码看不出

Answer 2

改线程为动态链接库试试！

追问

把多线程改成函数，内存就不曾加了，这是怎么回事

Answer 3

用freeandnil（），不用free试一试