Comparar horas
13/09/2004
0
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
Curtir tópico
+ 0
Responder
Posts
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
Clique aqui para fazer login e interagir na Comunidade :)
