我不知道某个操作将要耗多长时间，但我希望用ProgressBar来显示过程，怎么办到？？

Question

如果有循环就用 
每一步 用 Stepit循环结束后直接跳到最后

Answer 1

结你一个我程序里的例子：
var
  i,j,k:integer;
begin
  ADOTable1.Active :=true;
  Randomize;
  j:=1000;
  ProgressBar1.Min :=0;
  ProgressBar1.Max :=j;
  ADOTable1.Append ;
  RzStatusPane1.Caption := DateTimeToStr(Now);
  ADOTable1.FieldByName('Name').value:='节点0:';
  k:= Random(50);
  ADOTable1.FieldByName('Parent').value:=IntToStr(0);
  ADOTable1.Post ;
  ProgressBar1.Position :=i;
  ProgressBar1.Refresh ;
  ProgressBar1.Update ;
  for i:=1 to j do begin
    ADOTable1.Append ;
    ADOTable1.FieldByName('Name').value:='节点:'+IntToStr(i);
    k:= Random(1000);
    ADOTable1.FieldByName('Parent').value:=IntToStr(k);
    ADOTable1.Post ;
    ProgressBar1.Position :=i;
    ProgressBar1.Refresh ;
    ProgressBar1.Update ;
    RzStatusPane.Caption :=IntTostr(i);
    RzStatusPane.Update ;
  end;
  RzStatusPane2.Caption := DateTimeToStr(Now);
end;