Работа с Таймером

[Иринкаа]

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

if Edit2.Text='2' then
begin
 repeat

 Vremya_tekyshee:= Vremya_tekyshee+Delt_m;

 Timer1.Interval:= Round(Delt_m*1000); 

 until Vremya_tekyshee > Vr_mashin_obsh;
end;

В обработчик событий Timer1 записала нужную процедуру.


Попробовала тоже самое сделать через sleep

if Edit2.Text='2' then
begin
 repeat
 Vremya_tekyshee:= Vremya_tekyshee+Delt_m;
 Variant_2_klad;  //имя процедуры
 Sleep(2000);
 until Vremya_tekyshee > Vr_mashin_obsh;
end;

Рузультата никакого. Можно сказать - что Дельфи просто виснет.

В чем проблема? Подскажите, плиз, как правильно использовать Timer

[_Dmitry]

Попробуйте перед задержкой добавить: Application.ProcessMessages;

[Иринкаа]

Сообщение от _Dmitry

Попробуйте перед задержкой добавить: Application.ProcessMessages;

Вот так?

if Edit2.Text='2' then
begin
 repeat
 Vremya_tekyshee:= Vremya_tekyshee+Delt_m;
 Application.ProcessMessages;
 Timer1.Interval:= Round(Delt_m*1000);
 until Vremya_tekyshee > Vr_mashin_obsh;
end;

Добавила - Выдает ошибку - Неправильн операция с плавающей точкой

[_Dmitry]

ProcessMessages приостанавливает работу программы до тех пор, пока не будут обработаны все сообщения. Ошибка не от него. В вашем случае, думаю правильней использовать второй вариант программы, установив ProcessMessages перед Sleep. И вообще не использовать Timer.
Вы говорите, что написанный вами код находится в обработчике таймера, в этом коде находится цикл по времени, где меняется интервал срабатывания таймера. Я представить не могу, как такое вообще может работать.

[Иринкаа]

Сообщение от _Dmitry

ProcessMessages приостанавливает работу программы до тех пор, пока не будут обработаны все сообщения. Ошибка не от него. В вашем случае, думаю правильней использовать второй вариант программы, установив ProcessMessages перед Sleep. И вообще не использовать Timer.
Вы говорите, что написанный вами код находится в обработчике таймера, в этом коде находится цикл по времени, где меняется интервал срабатывания таймера. Я представить не могу, как такое вообще может работать.

Нет. Интервал таймера не меняется. Он все время равен округленному значению переменной Delt_m.

[Иринкаа]

А нужно отключать таймер? В коде написать:
Timer1.Interval:=0;
или
Timer1.Enabled:=false;
Или это не обязательно?

[Иринкаа]

Такой вариант работает. Спасибо за помощь.

if Edit2.Text='2' then
begin
 repeat
 Vremya_tekyshee:= Vremya_tekyshee+Delt_m;
 Variant_2_klad;
 Application.ProcessMessages;
 Sleep(Round(Delt_m*1000));
 until Vremya_tekyshee > Vr_mashin_obsh;
end;

Надеюсь, что мне подойдет этот вариант для моей работы...