我在程式的一個From裏面放了一大堆Table(BDE的),我想在程式執行完畢後，將所有的Table都Close掉，如何可以一次把他CLOSE掉。不要一張表一張表的做。

有借就要有还，有开就必须有关，这是写程序所必须的良好习惯，申请了内存／控件／变量就必须释放，而文件／数据库开了就必须关闭，开多少就应该手动关多少，否则很容易引起文件或库损坏，还会引起内存泄漏，不要怕麻烦，这是必须的． 發表人 - vicen 於 2005/11/19 20:52:55

procedure TForm1.BitBtn1Click(Sender: TObject); var i:integer; begin for i:=0 to Componentcount-1 do begin if Components[i] is Ttable then begin Ttable(Components[i]).Close; end; end; end;

建議已確定不用的部分，在當下就應該CLOSE，而非在整個程式CLOSE時，才一次 全部關閉，原因在未來您不論使用何種後端DB，會耗用後端RESOURCE，又當每個用相同程式的人也是用此方式時，未來所需付出的硬體及軟體成本是可觀的。

*.exe 在結束時,自動就會關閉曾使用過的所有資源

huangeider兄的方法用遍历窗体控件方式关闭，随可以达到关闭目的，但实际还是去一个一个执行table.close方法，这种方法使用多会让初学者不能养成良好的编程习惯，让初学者养成只管开不去关的毛病，在以后编程中对于内存／文件等使用会埋下弊端，因为他们意识上关闭工作都不需要手动去做的． 这仅是在下愚见，并非与huangeider兄争辩，待到程序熟练，充分理解程序运作流程时再使用也不妨～ 至于digitraveler 说法，在下不敢苟同，APPLICTION并不能释放所有资源，而且这种编程思想是万万不可取的，望初学者不可采纳． 發表人 - vicen 於 2005/11/20 11:23:49