如附加檔案,
把資料從資料庫捉到grid習慣用這樣的寫法,
突然發現重複查詢時,記憶體越吃越多...
是adoqry沒有完全放掉嗎???
是寫法不好的問題嗎??
thanks

------
OS : Win 7 pro
Program : Delphi 7
DataBase : Ms Sql 2008

附加檔案：47f4869292945_test.rar

編輯記錄

試看看會不會比較好
adoqry.Connection := nil;
adoqry.Free;

------
程式沒有這麼難
只是還沒打通其中要絕

感謝shunaaron兄的回覆
剛試了一下,好像沒有差別說...
===================引 用 shunaaron 文 章===================
試看看會不會比較好
adoqry.Connection := nil;
adoqry.Free;

------
OS : Win 7 pro
Program : Delphi 7
DataBase : Ms Sql 2008

的確用這樣的方法似乎第二次載入的資料是另外配置記憶體空間的,
因此並沒有立即釋放掉

我將程式碼改成如下,就不會有記憶體無法釋放的問題了,參考看看~
有兩點要注意
1.要use Provider
2.原來你的範例中Field的型態StringField會跟資料庫的不同WideStringField
因此記的要重新讓ClientDataSet抓一次

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var adoqry:tadoquery;
i:integer;
dsp:TDataSetProvider;
begin
try
adoqry:=tadoquery.Create(self);
adoqry.Connection:= ADOConnection1;
adoqry.Close;
adoqry.SQL.Clear;
adoqry.SQL.Add('select item_no,item_name,item_1,item_2,item_3,item_4,'
'item_5,item_6,item_7,item_8 from bas_item_master');
adoqry.Open;

dsp:=TDataSetProvider.Create(Self);
dsp.DataSet:=adoqry;
edit1.Text:='';
cd1.Data:=dsp.Data;
edit1.Text:='結束';
application.ProcessMessages;
finally
FreeAndNil(adoqry);
FreeAndNil(dsp);
end;
end;
[/code]

感謝darnell版主的幫忙,問題解決了
二天幫小弟解決了二個問題,真的很感謝
附加檔案有把darnell版主的用法加上去了,
有興趣的網友可以捉下來玩玩看

------
OS : Win 7 pro
Program : Delphi 7
DataBase : Ms Sql 2008