Работа с циклами.

← →
Немировский Шурик (2002-04-02 12:16) [0]

{ Как при выполнении цикла в процедуре недожидаясь
окончания цикла и непрырывая его перейти к выполнению
следующей строки, допустим написать на Lable1. }

procedure Proc;
var
i: word;
begin
for i:=1 to 10000 do begin
Form1.Caption:=inttostr(i);
Application.ProcessMessages;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Proc;
Label1.Caption:="!!!!!!!!!!!!!!!!!!!!!!!!";
end;

С уважением Немировский Шурик.

← →
gek (2002-04-02 12:19) [1]

использовать потоки

← →
Digitman © (2002-04-02 12:27) [2]

>>"следующей строки"

Как это понимать ? "Следующий", "предыдущий", "текущий" - понятия относительные !

← →
MBo © (2002-04-02 12:39) [3]

вызвать Button1Click

MBo © (02.04.02 12:39)
Так 1 апреля вообщето прошло.

Немировский Шурик (02.04.02 12:16)
Не мучайся, присвой в цикле или вызови отдельную процедуру.
Но только в любом случае "недожидаясь
окончания цикла и непрырывая его перейти к выполнению
следующей строки" не получится.

Работа с циклами. Найти похожие ветки