为什么程序编译执行几次就开始出现insufficient memory的情况.....

Question

procedure TForm1.FormCreate(Sender: TObject);
begin
Database1.Close;
Database1.Params.Values['User Name']:='super';
Database1.Params.Values['Password']:='helloworld';
Database1.Open;end;procedure TForm1.Button2Click(Sender: TObject);
begin
    Query1.Close;
    Query1.SQL.Clear;
    Edit3.Clear;
    Query1.UnPrepare;
    Query1.ParamByName('name').AsString:=Edit3.Text;
    Query1.SQL.Add('select * from number where name:=name');
    Query1.Prepare;
    Query1.Open;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Database1.Close;
end;
看过进程占用,似乎没有问题的,是不是涉及数据库资源了....

Answer 1

好像不是，我也经常这样，总要重启DELPHI，但程序独立运行的时候就不会。

Answer 2

Form的OnClose事件没有处理资源的释放！！！！！！！小程序无所谓，数据库就不同了
我身有体会阿 做数据库不释放 几个小时后就内存不足
建议+
try
Query1.destory;
Database1.destory;
finally
application.terimated;
end;