while 循环出什么问题了??

Question

请教楼上的什么意思?用case of 语句吗?我那个循环很大的,有几百万次,连for都不能用.

Answer 1

在While中加入i := i + 1怎么样呢？

Answer 2

在While中加入i := i + 1怎么样呢？

Answer 3

procedure TDataGetter.WebBrowser1DocumentComplete(Sender: TObject;
 const pDisp: IDispatch; var URL: OleVariant);
begin
   i:=i+1;
  // PostMessage 或简单地用定时器
  Timer1.Interval:=1;
  Timer1.Enabled:=True;
end;procedure TDataGetter.Timer1Timer(Sender:TObject);
begin
  webbrowser1.Navigate(inttostr(i)+'.htm');
end;

Answer 4

application.pocessmessages;
sleep(50);
每个循环中判断一下下载状态 
status=3 or 4

Answer 5

谢谢大家,我自己搞定了,用docmentiscomplete事件递归.