Информирование

[xRamzeSx]

Доброго времени времени суток, уважаемые программисты.

Мой вопрос достаточно прост, но мой мозг достаточно туг для него

Дело в том, что я хочу написать информер, например, при считывании значения из Edit1, выполняется сравнение - если, допустим, текст равен 'Ля-ля', тогда beep, но он запускается и не перестаёт пищать до тех пор, пока не закрыть программу. Собственно и вопрос - как сделать так, чтобы, например, сигнал издавался через каждые 5 секунд или т. п???

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

по таймеру, в чем трабла то?

[xRamzeSx]

Не прёт по таймеру. Я его остановить потом не могу...

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

значит чтото не правильно делаете.
обычный TTimer нормально работает.

[xRamzeSx]

procedure TTimer1.Sender.Object
if edit1.Text:= 'Ля-ля'
then beep
end;

Например таймер стоит на 5000, всё-равно трещит через каждую секунду...

[A-IX-2]

А выключать кто будет? =)
По умолчанию Enabled у таймера в False.

procedure TForm1.Edit1Change(Sender: TObject);
begin
  If Edit1.Text='Ля-ля' then Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  beep;
  Timer1.Enabled:=False;
end;

[xRamzeSx]

Всё хорошо работает, спасибо, но как заставить эту функцию повторяться?

Использую это:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Pos('111', Edit1.Text)>0 then Timer1.Enabled:=True;

  if Pos('222', Edit1.Text)>0 then Timer1.Enabled:=True;

  if Pos('333', Edit1.Text)>0 then Timer1.Enabled:=True;

  if Pos('444', Edit1.Text)>0 then Timer1.Enabled:=True;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  repeat
  beep;
  Timer1.Enabled:=False;
  until ...;
end;

Что написать после until???

[A-IX-2]

Не совсем понял, но если надо несколько раз заставить beep работать, то можно так:

procedure TForm1.Timer1Timer(Sender: TObject);
  var i: integer;
begin
  beep;
  If i>3 then Timer1.Enabled:=False;
  i:=i+1;
end;

[xRamzeSx]

Спасибо, всё хорошо работает.