Скачать: CL | DM;

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

← →
Немировский Шурик   (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

---

← →
Anatoly Podgoretsky ©   (2002-04-02 13:11) [4]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c