Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с циклами. [D5, Win95/98]


Немировский Шурик ©   (2002-04-02 12:16:00) 

{ Как при выполнении цикла в процедуре недожидаясь
окончания цикла и непрырывая его перейти к выполнению
следующей строки, допустим написать на 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;

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


Anatoly Podgoretsky   (2002-04-02 13:11:00) [1]

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

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


MBo   (2002-04-02 12:39:00) [2]

вызвать Button1Click


Digitman   (2002-04-02 12:27:00) [3]

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

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


gek   (2002-04-02 12:19:00) [4]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо