Показать сообщение отдельно
  #1  
Старый 28.11.2018, 17:36
ImDoode ImDoode вне форума
Прохожий
 
Регистрация: 02.12.2010
Сообщения: 15
Репутация: 10
Вопрос Динамический TTimer и передача параметров в него

Всем добрый день, столкнулся с проблемой.
У меня есть функция, внутри которой создаётся таймер
Код:
procedure startCheck;
var
  someVal: string;
  sTimer: TTimer;
begin
  someVal:= '666_test';
  sTimer := TTimer.Create(nil);
  sTimer.Enabled := False;
  sTimer.OnTimer := sCheckSomeVal;
  sTimer.Interval := 3000;
  s.Timer.Enabled := True;
end;
Внутри функции sCheckSomeVal я периодически (по интервалу таймера) получаю некоторую строку (делаю интернет-запрос), и эту строку мне нужно сравнивать с переменной someVal.
Вопрос заключается в том, как мне передавать конкретно этому таймеру конкретно эту переменную? Область видимости переменной должен оставаться внутри функции startCheck, так как параллельно может быть запущено несколько экземпляров таймера
Так же рассматриваю альтернативный вариант без использования таймера, но не знаю, как можно проверять определённое условие раз в 3 секунды, и при этом не зависать программу
__________________
Не пускайте детей в интернет.
Ответить с цитированием