2,497
社区成员
发帖
与我相关
我的任务
分享关于占用内存的问题
程序刚运行在任务管理器中内存使用显示为7000多K
运行以下代码后显示25000K如何释放内存啊？
procedure TForm1.SpeedButton12Click(Sender: TObject);
var
l:TStringList;
begin
try
L:=TStringList.Create;
L.Add('机号 附加费 押金 总费用 上机时间 下机时间');
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select top 5 * from 每日结算 order by 编号 desc');
open;
First;
while not eof do
begin
l.Add(formatfloat(' 00',FieldValues['机号'])+' '+Formatfloat('##0.00',FieldValues['商品费用'])+' '+Formatfloat('##0.00',FieldValues['押金'])+' '+Formatfloat('##0.00',FieldValues['总费用'])+' '+Fieldbyname('上机时间').Text+' '+Fieldbyname('下机时间').Text+' ');
Next;
end;
close;
end;
ShowMessage(l.Text);
FreeAndNil(l);
except
Freeandnil(l)
end;
end;
运行以下代码后显示25000K如何释放内存啊？
procedure TForm1.SpeedButton12Click(Sender: TObject);
var
l:TStringList;
begin
try
L:=TStringList.Create;
L.Add('机号 附加费 押金 总费用 上机时间 下机时间');
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select top 5 * from 每日结算 order by 编号 desc');
open;
First;
while not eof do
begin
l.Add(formatfloat(' 00',FieldValues['机号'])+' '+Formatfloat('##0.00',FieldValues['商品费用'])+' '+Formatfloat('##0.00',FieldValues['押金'])+' '+Formatfloat('##0.00',FieldValues['总费用'])+' '+Fieldbyname('上机时间').Text+' '+Fieldbyname('下机时间').Text+' ');
Next;
end;
close;
end;
ShowMessage(l.Text);
FreeAndNil(l);
except
Freeandnil(l)
end;
end;
...全文
请发表友善的回复…
发表回复
