Fórum Tratamento de Erros no MaskEdit... #215723
20/02/2004
0
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?
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
Curtir tópico
+ 0
Responder
Posts
20/02/2004
Alexrol
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.
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.
Responder
Gostei + 0
20/02/2004
Okama
Try
StrToDate( MaskEdit1.Text);
Except On EConvertError do begin
Showmessage( ´Data Inválida´);
<< Condicionante >>
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)