因為我很懶...一一a

所以我想在FormClose 時，把Form 裡所有的TADOQuery 全部Close ！
我試著找過用 Control[i] 控制，可是找不到相關文章！>"<

Components[I] is TADOQuery ...

我試過... 可是Components[i] 不能Close;

[code delphi]
procedure TForm.FormClose(Sender: TObject;
var Action: TCloseAction);
Var i:Integer;
begin
for i:=0 to ComponentCount-1 do
if Components[i] is TADOQuery then
Components[i].Close; // 這句有問題
end;
[/code]

Error message:
[Error] Test.pas(484): Undeclared identifier: 'Close'

[code delphi]

procedure TForm.FormClose(Sender: TObject;
var Action: TCloseAction);
Var i:Integer;
begin
for i:=0 to Self.ComponentCount-1 do
if (Self.Components[I] is TADOQuery) then
Self.Components[i].Close;
end;
[/code]

------
努力會更接近成功

編輯記錄

我找到方法了.... ^^a
不過我醬子做... 是真的Close 掉Components[i] 嗎？
還是我只是Colse 掉DB_ADOQuery 這個變數？

[code delphi]
procedure TForm.FormClose(Sender: TObject;
var Action: TCloseAction);
Var i:Integer;
DB_ADOQuery: TADOQuery;
begin
// Close 所有ADOQuery
for i:=0 to ComponentCount-1 do
if Components[i] is TADOQuery then
begin
DB_ADOQuery := TADOQuery.Create(Components[i]);
DB_ADOQuery.Close;
DB_ADOQuery.Free;
end;
[/code]

編輯記錄

===================引 用 pceyes 文 章===================

[code delphi]

procedure TForm.FormClose(Sender: TObject;
var Action: TCloseAction);
Var i:Integer;
begin
for i:=0 to Self.ComponentCount-1 do
if (Self.Components[I] is TADOQuery) then
Self.Components[i].Close;
end;
[/code]

這樣寫一樣不行.... @@

編輯記錄

你這樣寫很怪唷，建議像下面這樣寫   ( 拍謝從 pceyes 大那邊 Copy 過來的，小改一下 )

[code delphi]
procedure TForm.FormClose(Sender: TObject; var Action: TCloseAction);
Var i:Integer;
begin
for i:=0 to Self.ComponentCount-1 do
if (Self.Components[I] is TADODataSet) then
TADODataSet(Self.Components[i]).Close;
end;
[/code]


===================引 用 yching 文 章===================
procedure TForm.FormClose(Sender: TObject;
var Action: TCloseAction);
Var i:Integer;
DB_ADOQuery: TADOQuery;
begin
// Close 所有ADOQuery
for i:=0 to ComponentCount-1 do
if Components[i] is TADOQuery then
begin
DB_ADOQuery := TADOQuery.Create(Components[i]);
DB_ADOQuery.Close;
DB_ADOQuery.Free;
end;

------
價值的展現，來自於你用哪一個角度來看待它!!

編輯記錄

呵呵呵........ 我也覺得我寫的怪怪的..... @@a
試了您的寫法... 可以過了.... 感激您....... ^^


===================引 用 careychen 文 章===================
你這樣寫很怪唷，建議像下面這樣寫 ( 拍謝從 pceyes 大那邊 Copy 過來的，小改一下 )

[code delphi]
procedure TForm.FormClose(Sender: TObject; var Action: TCloseAction);
Var i:Integer;
begin
for i:=0 to Self.ComponentCount-1 do
if (Self.Components[I] is TADODataSet) then
TADODataSet(Self.Components[i]).Close;
end;
[/code]


===================引 用 yching 文 章===================
procedure TForm.FormClose(Sender: TObject;
var Action: TCloseAction);
Var i:Integer;
DB_ADOQuery: TADOQuery;
begin
// Close 所有ADOQuery
for i:=0 to ComponentCount-1 do
if Components[i] is TADOQuery then
begin
DB_ADOQuery := TADOQuery.Create(Components[i]);
DB_ADOQuery.Close;
DB_ADOQuery.Free;
end;