我已寫了一個程式從databse 中抽取資料, 再匯出一個html file. 由於匯出html時, 會向database 作出多個query,令到cpu process 全被用了. 令到程式好像死了一樣. 我請問如果要顯示進度,是否要用multi-thread 呢? 謝謝

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

procedure TForm1.Button4Click(Sender: TObject);
Var
  I : Integer;
begin
  ProgressBar1.Max := ClientDataSet1.RecordCount;
  ProgressBar1.Position := 0;
  ClientDataSet1.First;
  while not ClientDataSet1.Eof do
    begin
//    匯出 html
      ProgressBar1.Position := ClientDataSet1.RecNo;
      Application.ProcessMessages;
      ClientDataSet1.Next;
    end;
end;

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

------
Fishman

謝謝. 題外話一問 TProgessBar 是否用了multi thread 呢? 否則, 如何於 CPU use 100% 時 運行呢? thx

Hi hkguy80,    上述程式碼的重點應該是在 Application.ProcessMessages; 與 TProgessBar 是否用了multi thread 應該無關，建議你看一下 Delphi 中關於 Application.ProcessMessages 的說明，應該就可以了解了！ ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

謝謝閣下指教, 我必努力讀書. especially Application.ProcessMessages 再次衷心感謝