Отправлено Винни Пух 01 марта 2005 г. 12:58 В ответ на: а функцию подцепить? отправлено 99600036 01 марта 2005 г. 12:46

--- функция реакции на события
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;

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

• while (intoccurstimer1=0) do a:=1; блокирует выполнение основного потока. Либо создаем отдельный поток, либо запустив таймер ВЫХОДИМ из функции и отрабатываем его уже при возниконовении события таймера — DASM   (01.03.2005 13:02, пустое)
  • а кроме того - будет ли "intoccurstimer1" иметь статус "volatile" ? — -Tумблер-   (01.03.2005 15:11, пустое)
  • Кучно. Хоты бы Application.ProcessMessages воткнул! Если по уму делать - таймер по срабатыванию выставляет event, а ты его ловишь WaitForSingleObject(..) и ресетишь - вместо a:=1. Только так можно разгрузить проц на глухих ожиданиях. — Али Баба   (01.03.2005 13:15, пустое)
    • Похоже это гимор, полезу ка лучше за компонентой на torry.ru. P.s. спасибо за разъяснения — Винни Пух   (01.03.2005 13:19, пустое)
      • Встань курсором на "TTimer" и нажми F1. Неужто и хелпа нету?? Там же и пример найдешь. — Али Баба   (01.03.2005 13:24, пустое)
        • Проблему решил при помощи Sleep(время в милисекундах). Во как! — Винни Пух   (01.03.2005 13:45, пустое)
          • А я попытался в бидере выводить 1 mc на lpt - через sleep или таймер - сплошной облом, меньше 10мс не получилось, (с установкой приоритетов и т.д.), так и бросил. — vvvv   (01.03.2005 16:05, пустое)
            • Я тоже наблюдал, что меньше 10 мс не получается установить... — RedFroggy   (01.03.2005 16:56, пустое)
          • Молоток! ;) — Али Баба   (01.03.2005 15:09, пустое)