Tratamento de Erros no MaskEdit...

Delphi

20/02/2004

Saudações,
gostaria de saber como eu faço o tratamento para erros no maskedit com data...é o seguinte: mesmo que eu ponha a máscara pessoalmente ou ponha em algum evento (onchange, onclick), quando clicamos no botão com o maskedit em branco o sistema dá um erro de data inválida...eu queria fazer um tratamento para isso mas naum consigo...a máscara é essa 99/99/9999;1; e quando está em branco fica assim / / . Gostaria de fazer algo do tipo if eddata.text = ´ / / ´ then...showmessage...mas naum consigo. Eu tiro o espaço, ponho espaço mas nada funciona...alguém pode ajudar?


Elias Jr

Elias Jr

Curtidas 0

Respostas

Alexrol

Alexrol

20/02/2004

Vou tentar te ajudar.

faça isso :

Na mascara do MaskEdit deixe como 99/99/9999

no enveto onexit digite

begin
try
begin
If MaskEdit1.Text =´ / / ´ then
begin
ShowMessage(´Digite a data de vencimento ...´);
MaskEdit1.SetFocus;
exit;
end
else begin
// se passou aqui vc digita a sequencia da procedure.
ShowMessage(´Data Valida´);
end;
end;
except// se deu erro - avisa
Application.MessageBox(´Erro de validação na Data!´+#13+
´Entrada de dados inválido - Favor Corrigir.´ ,
´Atenção...´, MB_ICONERROR + MB_OK);
MaskEdit1.setfocus;
end;


espero ter ajudado vc.


GOSTEI 0
Okama

Okama

20/02/2004

Try 
      StrToDate( MaskEdit1.Text);
Except On EConvertError do begin 
      Showmessage( ´Data Inválida´); 
      << Condicionante >>     
end; 
end;



GOSTEI 0
POSTAR