Таймер в массиве и интервал времени

[yohohox]

Бодрое время суток Товарищи.
Помогите пожалуйста разобраться.
Есть поле Edit в котором задаю кол-во времени по умолчанию в миллисекундах.
Есть ComboBox в котором заполненны меры времени: мс, сек, мин, час.

Пару вопросов:
1. Как для каждого таймера который в массиве задавать интервал
2. И каким образом менять его в зависимости от выбранного ComboBox.Items
я думал что это будет как то так:

PHP код:

ms  := 10;
sec := 1000;
min := 60000;
hr  := 3600000;

if ComboBox1.Text = ComboBox1.Items[0] then
  TimerPress.Interval := StrToInt(Edit1.Text) * ms;
if ComboBox1.Text = ComboBox1.Items[1] then
  TimerPress.Interval := StrToInt(Edit1.Text) * sec;
if ComboBox1.Text = ComboBox1.Items[2] then
  TimerPress.Interval := StrToInt(Edit1.Text) * min;
if ComboBox1.Text = ComboBox1.Items[3] then
  TimerPress.Interval := StrToInt(Edit1.Text) * hr; 


Но тогда всем таймерам будеет задан единый интервал, а не для каждого по отдельности.

Если у таймера по умолчанию поставить интервал = 1, прога работает, но отсчет времени делается неправильно.
1 сек = 1000 мс, но если в Edit ввести 1000, то отсчет будет идти явно не 1 секунду.

Можно как то решить такое?

Ниже привожу код:

PHP код:

 .......................

  TForm1 = class(TForm)
    ComboBox1: TComboBox; 
    Buttonstart: TBitBtn;
    Edit1: TEdit;
    TimerPress: TTimer;
    procedure ButtonstartClick(Sender: TObject); 
    procedure TimerPressTimer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

.......................

var
  Form1: TForm1;
  TimePress: array [1..12] of Integer;  

.......................

procedure TForm1.ButtonstartClick(Sender: TObject); 
  begin

  if TimerPress.Enabled = False then
    begin

      TimerPress.Enabled := True;

      TimePress[1] := StrToInt(Edit1.Text);

    end
  else
    begin

      TimerPress.Enabled := False;

    end;

  end;

procedure TForm1.TimerPressTimer(Sender: TObject);
  begin

    Dec(TimePress[1]);

    if TimePress[1] = 0 then
      begin
        
        ........

        TimePress[1] := StrToInt(Edit1.Text);

      end;

  end; 


Спасибо за внимание.

[Serge_Bliznykov]

Как для каждого таймера который в массиве задавать интервал

один и тот же для всех?

Если у таймера по умолчанию поставить интервал = 1, прога работает, но отсчет времени делается неправильно.
1 сек = 1000 мс, но если в Edit ввести 1000, то отсчет будет идти явно не 1 секунду.

таймеры не гарантируют срабатывание. зависит от целого ряда параметров, загруженности винды.
ну и делать интервал в 1 мс бессмысленно, таймер в винде срабатывает намного реже.

Можно как то решить такое?

Расскажите, какую ИЗНАЧАЛЬНО решаете задачу?
вполне возможно, что Вам достаточно ОДНОГО таймера, в котором будут проверяться некие интервалы времени и производиться нужные действия.
Для чего это всё?


p.s.

ms  := 10;

не к чему. должно быть ms := 1;

p.p.s. а на второй ваш вопрос ответ такой:
на второй вопрос ответ такой

const 
   time_measure_units : array[0..3] of integer = (1,1000,60000,3600000);

....
XXXX.Interval := StrToInt(Edit1.Text) * time_measure_units[ ComboBox1.ItemIndex ];

[yohohox]

Это клавиатурный кликер.
Привел в пример лишь TimePress[1], Edit1 и ComboBox1, а таких там 12, и все обрабатывает один таймер. Может есть смысл делать 12 отдельных таймеров? На сколько это правильно и быстрее?

Сообщение от Serge_Bliznykov

p.p.s. а на второй ваш вопрос ответ такой:
на второй вопрос ответ такой

const 
   time_measure_units : array[0..3] of integer = (1,1000,60000,3600000);

....
XXXX.Interval := StrToInt(Edit1.Text) * time_measure_units[ ComboBox1.ItemIndex ];

Спасибо большое, понятно

[yohohox]

Вся моя проблема насколько я понимаю находится в процедуре Dec() которая отнимает по 1 из заданного значения в Edit.
Причем отнимает по -1 раз в 1 миллисекунду. И теперь понятно почему расчеты идут не верно.
Исходя из того что в 1 секунде = 1000 миллесекунд, я думал что введя в поле Edit1 значение 1000 и запустив, будет выполняться действие раз в секунду, а не тут то было.

[Serge_Bliznykov]

всё, разобрались? Теперь проблема решена?

[yohohox]

Сообщение от Serge_Bliznykov

всё, разобрались? Теперь проблема решена?

Нет, нашел корень проблемы, а разобраться с ней еще предстоит. Пока гуглю, может всплывет что.
Может быть можно каким то образом, повлиять на процедуру Dec таким образом, чтобы были правильные расчеты?
Если решение найдется, я его обязательно озвучу, дабы помочь кому либо с подобными проблемами.

[evg_m]

где-то при ВКЛЮЧЕНИИ таймера

start_time:=Now;
t0:=strtoint(EditX.Text);

где-то при срабатывании таймера

EditX.text:=strtoint(t0- millisecondBetween(Now, start_time));

[Serge_Bliznykov]

evg_m, угу, точно так.

Если решение найдется, я его обязательно озвучу, дабы помочь кому либо с подобными проблемами.

уже нашлось!

p.s. кстати, подобный приём нужно использовать и в тех случаях, когда таймер используется для вывода часиков/таймера/оставшегося времени и т.п.
Даже если некоторые срабатывания кода таймера будет пропущено, это никак не повлияет на корректную работу программы.