谁遇到此问题了，共同进步！

Question

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer  ;
j:integer  ;
m:integer ;
begin
edit1.Text :='';
i:=0;
while i<10 do
begin
  i:=i+1;
  for j:=0 to 50000 do
  begin
    for m:=0 to 50000 do
    begin
    end;
  end;
  edit1.Text :=edit1.Text + inttostr(i);
end
end;程序的效果出不来，edit1中循环－等待－添加数字

Answer 1

var
i:integer  ;
j:integer  ;
m:integer ;
begin
edit1.Text :='';
i:=0;
while i<10 do
begin
  i:=i+1;
  for j:=0 to 50000 do
  begin
    for m:=0 to 50000 do
    begin
    end;
  end;
  edit1.Text :=edit1.Text + inttostr(i);
  application.ProcessMessages;
end
end;

Answer 2

回复人： meiqingsong(阿飛) ( ) 信誉：105 的对
但放错地方了把
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer  ;
j:integer  ;
m:integer ;
begin
edit1.Text :='';
i:=0;
while i<10 do
begin
  i:=i+1;
  for j:=0 to 50000 do
  begin
    for m:=0 to 50000 do
    begin
//应该放到这里来
    application.ProcessMessages;
    end;
  end;
  edit1.Text :=edit1.Text + inttostr(i);
end
end;

Answer 3

就是啊 你那样用 EDIT1.TEXT的内容是不能象你想象的那样一个一个数字蹦出来的,加上application.ProcessMessages 就可以了,或者你用TIMER控件不是也可以吗