edit显示问题。

Question

delphi 中 如下代码。var 
 i: integer;
begin
  for i:=0 to 100000 do begin
      edit1.text:=i+1; 
  end;
end;运行过程中为什么？edit1  不能 实时的显示，数数从1到 100000 ?  只会等了一下，后显示循环的最后一个数，100000？？？没有分了。。
 

Answer 1

要看，，，肯定可以写到Timer事件当中就OK

Answer 2

var  
 i: integer; 
begin 
  for i:=0 to 100000 do begin 
      edit1.text:=inttostr(i+1);  
  end; 
end; 

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
begin
  for i:=0 to 10000 do
  begin
      edit1.text:=inttostr(i+1);
      sleep(100);
      edit1.Update;
  end;end;

Answer 4

3KU  to  voyan  好样的谢谢!

Answer 5

var  
 i: integer; 
begin 
  for i:=0 to 100000 do begin 
      edit1.text:=inttostr(i+1);   //这样加到了100001，直接用i
      application.ProcessMessages ;//加上这一句
  end; 
end;