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 :)