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

Приостановка выполнения цикла.   Найти похожие ветки 

← →
Ryser   (2002-10-07 16:41) [0]

Есть цикл на OnTimer.
Нужно каким-то образом задержать переход на новый круг выполнения цикла на некоторое кол-во времени.
Естественно, Break и т.п. не уместны.
Как быть?

---

← →
Внук ©   (2002-10-07 16:42) [1]

Sleep?

---

← →
Ryser   (2002-10-07 16:47) [2]

Похоже на то. Но эффект не совсем тот. Sleep вешает все приложение, а не конкретно цикл.

---

← →
Внук ©   (2002-10-07 16:51) [3]

Так надо бы поподробнее рассказать. В частности - требуется остановить цикл в пределах одного тика таймера или пропустить несколько тиков, зачем останавливать, может, выделить цикл в отдельный поток, может, флагами поиграть...

---

← →
Демонов Е.В. ©   (2002-10-07 16:55) [4]

procedure wait(mili:cardinal);
var t:Cardinal;
begin
t:=getTickCount;
while getTickCount<t+Mili do
application.ProcessMessages;
end;


Может так ? попробуй.

---

← →
AFrolov ©   (2002-10-07 16:56) [5]

1. Цикл надо делать в отдельном потоке - все приложение не будет подвешиваться.
2. Либо while (условие ожидания) -вместо sleep
Application.ProcessMessages.

---

← →
Ryser   (2002-10-07 17:16) [6]

Вот такая процедура. Нужно как-то задержать переход к следующей записи в ЛистБокс


begin
//****** цикл перемещения по узлам
for I := 0 to ListBox1.Items.Count-1 do
begin

//

---

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

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



Память: 0.46 MB
Время: 0.01 c