請問各位先進 我的 form裡面 有10-30個 TQUERY 我要將 這 10-30個 TQUERY的 database name 改掉 如何能透過程式 一次修正? 謝謝

Hi eric1002,    請參考 http://delphi.ktop.com.tw/topic.php?topic_id=52080

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  for i:=0 to self.controlcount-1 do begin
     if self.controls[i].ClassNameIs('TQuery') then
     begin
        TQuery(Self.controls[i]).Close;
        TQuery(Self.controls[i]).DatabaseName := YourDataBaseName;
     end;
  end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

Fishman 大大 "鍵盤誤" 了! TQuery 不是 TControl 哦!  -- < src="http://www.sweetbaby.net/~hagar/good.bmp">歡迎光臨 KTop 研究苑!

HI     不好意思，給各位見笑了(最近太忙了) 感謝 class="code"> procedure TForm1.Button2Click(Sender: TObject); var I : Integer; begin for I := 0 to Self.ComponentCount - 1 do begin if Self.Components[i] IS TQuery then begin TQuery(Self.Components[i]).Close; TQuery(Self.Components[i]).DatabaseName := YourDataBaseName; SHOWMESSAGE(TQuery(Self.Components[i]).DatabaseName); end; end; end; ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman