为什么我的下载进度会有问题？这样写不对吗？

Question

我用IDHTTP控件进行下载文件的，procedure TMainForm.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  Application.ProcessMessages;
  self.ProgressBar1.StepBy(AWorkCount);
end;procedure TMainForm.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
   self.ProgressBar1.Max:= AWorkCountMax;
   self.ProgressBar1.Position := 0;
end;

Answer 1

self.ProgressBar1.StepBy(AWorkCount);好像是步长吧self.ProgressBar1.Position := 0;
self.ProgressBar1.Position := 10;
self.ProgressBar1.Position := 20;
这样增加的吧

Answer 2

我改成ProgressBar1.Position := ProgressBar1.Position + AWorkCount;
好象也一样。

Answer 3

天。知道了
ProgressBar1.Position :=  AWorkCount；这样就好了。
结帐