Duvida com maskedit
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
Curtidas 0
Respostas
Rjun
04/04/2005
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.
GOSTEI 0
Adriano_servitec
04/04/2005
eh isso mesmo, valeu, muito obrigado
GOSTEI 0