|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Динамический 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; Вопрос заключается в том, как мне передавать конкретно этому таймеру конкретно эту переменную? Область видимости переменной должен оставаться внутри функции startCheck, так как параллельно может быть запущено несколько экземпляров таймера Так же рассматриваю альтернативный вариант без использования таймера, но не знаю, как можно проверять определённое условие раз в 3 секунды, и при этом не зависать программу Не пускайте детей в интернет. |