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

Vispo

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar