[bloodmaster89]

Здравствуйте уважаемые форумчане!
У меня такой вопрос
Имеется компонент timer и переменная t:=0.1

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer2.Enabled:=True;
t:=0.1;
end;

Хочу сделать такое условие, чтобы при t=1 (вообщем значение неважно), выполнялись необходимые операции в один заход, т.е только тогда когда t=1.

Код:

procedure TForm1.Timer2Timer(Sender: TObject);
....
if t=1 then begin
....
// Необходимые операции
....
end;
end;

Подскажите пожалуйста как это можно реализовать?

[Alegun]

Увас такое уже реализовано. При каждом тике таймера проверяется условие: если t=1 то сделать то-то, без совпадения ничего больше не произойдёт

[bloodmaster89]

Дело в том что само условие t=1 не работает, а работает только условие t>1

[Alegun]

Условие работает, скорее всего t никогда одному не равно, проверьте

[angvelem]

Для чисел с плавающей хапятой нужно проверять

Код:

procedure TForm1.Timer2Timer(Sender: TObject);
  ....
  if t >= 1 then
  begin
    ....
    // Необходимые операции
    ....
  end; 
end;

[NumLock]

сделай t целым, начинай с 1, с инкрементом 1, в условии проверяй на равенство 10. там где нужно t дели его на 10)