Array
(
)

Comparar horas

Vispo
   - 13 set 2004

Quero fazer uma rotina que compare duas horas, se forem iguais faça aparecer uma mensagem, criei a rotina abaixo mas não funcionou:

#Código


procedure TFormPrincipal.Timer1Timer(Sender: TObject);
var
hora_pc, hora_alarme : String;
begin
hora_pc:=TimeToStr(Time);
hora_alarme:=Edit1.Text;

if (hora_pc = hora_alarme) then
begin
showmessage(´ALARME!´);
end;
end;



Rômulo Barros
   - 13 set 2004

#Código

procedure TForm1.Button1Click(Sender: TObject);
Var
HoraPc : TDateTime;
HoraAlarme : String;
begin
HoraPc := Time;
HoraAlarme := Edit1.text;
If(HoraPc = StrToTime(HoraAlarme))then
ShowMessage(´Alarme´);
end;