void __fastcall TForm1::Button9Click(TObject *Sender)
{       //-- 啟動執行緒作上傳動作
   MyThread=new TMyThread();
   MyThread->FreeOnTerminate=true;
   
   //-- 等待執行緒執行完成 
   Query1->ApplyUpdates();    }

可以這樣做嗎

Hi,renth555 您好：     我對 BCB 並不熟，但可提供你一個想法，在 Delphi 中有測試過    先宣告一個全域變數，這裡以 string 為例，並預設為空字串    // Thread內的一的宣告完成的動作 procedure QueryThread.GiveAnswer; begin   OKWord:='OK'; // 當 thread 呼叫此方法後將字串改為 ok end;    ******************************************************************* Synchronize(GiveAnswer); // thread.Execute 裡的最後加這一行宣告完成    ******************************************************************* while (OKWord='') do // 還未執行完成時(完成時會被改成 'ok' )      begin         //主程式中要等執行緒執行完成後才執行的程式碼放這裡      end;    希望幫得上忙    =========== 努力修行中... ===========

可以將Query1->ApplyUpdates(); 移到 TThread 的 OnTerminate 中執行。 ------------------------------- 數學系是內功很強(邏輯/分析) 資工系是招式很多(程式技巧) 就像令狐沖

兩位前輩回應的方法都雷同 小弟不知如何加分 所以給分數較少的前輩 謝謝兩位教導

想一想 anpino 的方法比較理想化 改變分數雍有者 (拍謝) 對不起