我的程序是一个Form 和一个DataModule其中DataModule中有一个ADOconnection控件它连接了一个Accsee数据库,并且为打开状态。
DataModule是一个非自动创建窗口.Form1中有两个按钮。按钮1做用为创建DataModule,安钮2 为Free它.程序一运行,没有点击按钮1时任务管理器中显示程序占用内存为2612K,当点按钮1创建DataModule后内存猛长为7672K。这时点击按钮2释放DataModule,点击完后程序在任务管理器中的所占内存为7162.
这时DataModule以释放。可是程序所占内存为什么没有回到DataModule创建前的2612K呀?代码如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
   DataModule2:=TDataModule2.Create(self);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
     DataModule2.ADOConnection1.Close;
     DataModule2.Free;
     DataModule2:=nil;
end;