下面是我找到的查詢的進度條效果，我的1000條代碼，應該在哪里寫？
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
for i:= 1 to 100 do
begin
ProgressBar1.Position := ProgressBar1.Position + 1; //TprogressBar 進度條位置 position
ProgressBar1.Progress := ProgressBar1.Progress + 1; //TGauge 進度條位置 Progress
// Application.ProcessMessages;
Sleep(10);
end;
例如
uj5u.com熱心網友回復：
for回圈中，你直接用I就可以了，不需要再ProgressBar1.Position + 1，如： ProgressBar1.Position :=I;哪里寫?這個問題，要么寫在處理程序的開始，要么就寫在處理結束的時候，通常我們會寫在處理結束的時候。
uj5u.com熱心網友回復：
我是沒看懂啥目的 。。。uj5u.com熱心網友回復：
首先要設定進度條組件的Max值設為1000，min設為0，應該是這個意思。uj5u.com熱心網友回復：
一般有個回圈陳述句，比如處理50個檔案，執行了多少，設定一次進度，按照處理的檔案數量，還是檔案大小，看具體需要。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/255361.html
標籤：語言基礎/算法/系統設計
下一篇：關于Ajax 的URL路徑問題