Fórum Duvida com maskedit #275418
04/04/2005
0
Bom dia amigos, estou querendo fazer com que o maskedit de duas datas que criei reconheça a diferença entre a data inicial e final:
Fiz dessa forma:
procedure Tfsaidas.MaskEdit2Exit(Sender: TObject);
begin
if maskedit2.text < maskedit1.text THEN
begin
showmessage(´Data final não pode ser menor que a data inicial.´);
maskedit1.setfocus;
end else
bitbtn3.setfocus;
end;
so que se eu digitar a data maior na maskedit1 que a maskedit2 ela nem me avisa, acho que tem que colocar algo para o maskedit saber que eh data, mais naum sei qual eh.
Alguem pode me ajudar?
Fiz dessa forma:
procedure Tfsaidas.MaskEdit2Exit(Sender: TObject);
begin
if maskedit2.text < maskedit1.text THEN
begin
showmessage(´Data final não pode ser menor que a data inicial.´);
maskedit1.setfocus;
end else
bitbtn3.setfocus;
end;
so que se eu digitar a data maior na maskedit1 que a maskedit2 ela nem me avisa, acho que tem que colocar algo para o maskedit saber que eh data, mais naum sei qual eh.
Alguem pode me ajudar?
Adriano_servitec
Curtir tópico
+ 0
Responder
Posts
04/04/2005
Rjun
Você esta comparando textos. Para fazer a compração de data você deve converter os valores dos edits para datas. Utilize a função StrToDate.
Responder
Gostei + 0
04/04/2005
Adriano_servitec
eh isso mesmo, valeu, muito obrigado
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)