время

[spydark91]

t1:=strtotime('23:01:00');
t2:=strtotime('23:02:00');
 
end;
 
procedure TSystem32.Timer2Timer(Sender: TObject);
begin
t:=now;
if (t>t1) and (t<t2) then showmessage('tcnm');

все переменные типа ttime . у таймера интервал 100
оно не работат((помогите пожалуйста

[maxionans]

используй CompareTime для сравнения времени

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

или уж если сравниваешь время, то и сравнивай время.
получай через time текущее время.
а now возвращает и дату и время.

[ZvEr_HaCkEr]

procedure TForm1.Button1Click(Sender: TObject);
var
t1,t2,t:ttime;
i:string;
begin
t1:=strtotime('23:01:00');
t2:=strtotime('23:02:00');
i:=timetostr(now);
t:=strtotime(i);
if (t<t1) and (t<t2) then
showmessage('tcnm');
end;

[Sparkman]

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

t1:=strtotime('23:01:00');
t2:=strtotime('23:02:00');
 
end;
 
procedure TSystem32.Timer2Timer(Sender: TObject);
begin
t:=now;
if (t>t1) and (t<t2) then showmessage('tcnm');

все переменные типа ttime . у таймера интервал 100
оно не работат((помогите пожалуйста

t1:=strtotime('23:01:00');
t2:=strtotime('23:02:00');

end;
procedure TSystem32.Timer2Timer(Sender: TObject);
begin
     t:=Time;
     if (t>t1) and (t<t2) then showmessage('tcnm');