又是关于循环的问题啊！大家帮忙解决一下

Question

var
  i:Integer;
begin
  i:=0;
  repeat
    Inc(i);
    edit1.Text:=IntToStr(i);
  until i>500000;
end;我想问的是 edit1的文本内容 就直接显示500001了呢 。。没看到不断增加的过程啊。请问如何能看的到呢？

Answer 1

var
  i:Integer;
begin
  i:=0;
  repeat
    Inc(i);
    edit1.Text:=IntToStr(i);
    sleep(10);//可以改时间
    application.ProcessMessages;  until i>500000; 

Answer 2

inc(i)的意思就是i:=i+1
直到i>50000的时候停止,当然是50001了.

Answer 3

inc有两种格式，一种是inc(i),相当于i:=i+1 还有一种是inc(i,n) 相当于i:=i+n
还有个函数dec是减，同理。

Answer 4

HI,又是楼主你...var
  i:Integer;
begin
  i:=0;
  repeat
    Inc(i);
    edit1.Text:=IntToStr(i);
    application.ProcessMessages;   //中断应用程序的执行,这样应用程序可以处理其他的消息(比如把I显示到edit1.Text上)
  until i > 500000;
==================================
或可以考虑自己用多线程来做.

Answer 5

听说inc(i)比i:=i+1效率高，没试过，不知道是不是真的。