如在进行一个0到10000的运算时可能会出现假死的现象 procedure TForm1.Button1Click(Sender: TObject); var n:Integer; begin for n:=0 to 10000 do begin Edit1.Text := IntToStr(n); end; end;
把它改成这样 procedure TForm1.Button1Click(Sender: TObject); var n:Integer; begin for n:=0 to 10000 do begin Application.ProcessMessages; Edit1.Text := IntToStr(n); end; end;