为什么我将一个DataModule从内存中Free了但从Windows的任务管理器中却看不到程序占内存的减少呀?(在线等待)
我的程序是一个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;