Comparar horas

13/09/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:

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;



Vispo

Respostas

13/09/2004

Rômulo Barros

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



Responder Citar