Поочередной вывод значений цикла

[utro35]

Здравствуйте.
Помогите пож.
Нужно чтобы по клику от одного до ста выводился в label или в Edit: сначала 1, через секунду 2, потом 3 и так далее.
Спасибо.

[Serge_Bliznykov]

вообще не вижу никаких проблем.
кидайте на форму таймер. На срабатывание таймер код, который будет увеличивать на единичку значение (я бы завёл переменную, которую и увеличивал). При достижении 100 таймер выключается. Интервал таймера - 1 секунда.
всё.

[utro35]

Ну хорошо, а что я тогда должен присвоить label.caption.
Я понимаю, что ерунда, но никак не получается

[Человек_Борща]

for i:=1 to 100 do //i надо обьявить как Integer
begin
  Label1.Caption:=IntToStr(i);
  Slepp(1000); //Спим 1000 милисекунд(1 секунда)
end;

вот так всо просто. Какие-то странные нынче студенты пошли. Накурились чего... Дайте мне покурить =)

[Пепел Феникса]

вот так всо просто.

данный код выведет 100 через 100секунд.
а в течении ста секунд форма будет висеть.

вы забыли про Application.ProcessMessages;
(хотя я предпочитаю иной метод)

[Человек_Борща]

Сообщение от Пепел Феникса

данный код выведет 100 через 100секунд.
а в течении ста секунд форма будет висеть.

вы забыли про Application.ProcessMessages;
(хотя я предпочитаю иной метод)

Там ещё и очипятка Я дал очевидное

[impulsgraw]

for i := 1 to 100 do begin
label1.caption := inttostr(i);
application.ProcessMessages;
application.HookSynchronizeWakeup;
sleep(1000);
end;

[utro35]

Спасибо, скажите а как остановить это процесс по клику. Т.е. дошло например до 55, всё, нам больше не надо: стоп, останавливаем.
Ага еще одна фигня: при любых действиях(клик в меню, открытие дочерней формы и т.д.) этот секундомер приостанавливается.

[Serge_Bliznykov]

utro35, чем Вас решение с таймером (мой пост #2) не устраивает?!!
Если уж речь идёт о секундомере, то воспользуйтесь секундомером. Плюс показывайте не абстрактный счётчик, а число секунд, прошедших с момента запуска. Тогда Вы не будете зависеть от степени загрузки ОС.

И останавливать цикл можно либо заведя переменную флаг, которой присваивать значение, когда нужно цикл остановить (тогда эту переменную надо проверять в цикле, где Вы крутите счётчик).
Либо, в случае таймера - банально остановив таймер.

ещё раз повторю - в чём у Вас проблемы с использованием TTImer ?!

[Пепел Феникса]

http://programmersforum.ru/showthrea...704#post886704