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

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

Как организовать задержку (стандартный таймер) сделал так: [D7, WinXP]

JTAG ©   (2005-03-01 13:10:00) 

--- функция реакции на события
procedure TForm1.Timer1Timer(Sender: TObject);
begin
intoccurstimer1:=1;
end;

--- функция задержки
procedure delay_timer1 (delay:integer);
var a:integer;
begin

form1.timer1.Interval:= delay;
form1.timer1.enabled:= true;

while (intoccurstimer1=0) do a:=1; --выполняю до тех пор пока не возникнет intoccurstimer1
form1.timer1.enabled:= false;
intoccurstimer1:=0;
end;

--- Основная прога
procedure TForm1.Button13Click(Sender: TObject);
begin
intoccurstimer1:=0;
while (1=1) do
begin
Memo3.Lines.Append('test');
delay_timer1(100);
end;
end;

Че-то не работает
В чем ошибка не могу понять

---

Anatoly Podgoretsky   (2005-03-01 13:40:00) [1]

Поможет.

---

JTAG   (2005-03-01 13:29:00) [2]

Спасибо! здорово, мне задержки от 10мили сек до 100 примерно нужны. Sleep мне поможет?

---

Юрий Зотов   (2005-03-01 13:17:00) [3]

Цикл
while (intoccurstimer1=0) do a:=1;
грузит CPU на 100% и сообщения от таймера не обрабатываются. Поэтому intoccurstimer1 единицей не становится и получаем бесконечный цикл.

Измените так:
while (intoccurstimer1=0) do Application.ProcessMessages;

А если задержки маленькие, то можно все это вообще выкинуть (вместе с таймером) и использовать просто Sleep.

---

Наверх