Александр Пронин пишет: Совершенно недавно (12 апреля 2000 г.) я прочел в рассылке RU.DELPHI вопрос как остановить цикл FOR человеческими методами ....
TForm1 = class(TForm) Button1: TButton; Button2: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } k : integer; end; var
Form1: TForm1; implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject); var
i : longint;begin
i:=0; k:=0;
for i:=0 to 500000 do begin Application.ProcessMessages; //"Волшебное слово" из-за чего все //работат как надо if k >0 then exit; label1.caption := inttostr(i); end;end;