Fórum EDBEditError with message ´Invalid input value. Se Corrige? #158320
07/05/2003
0
Project Stano.exe raised exception class EDBEditError with message ´Invalid input value. Use escape key to abandon changes´. Process stopped. Use Step or Run to Continue.
Inseri no evento OnExit o seguinte comando para validar a data
[color=red:94e06fc41d]procedure TForm1.MaskEdit10Exit(Sender: TObject);
begin
try
StrToDate(MaskEdit10.Text);
except
on EConvertError do
ShowMessage (´Data Inválida!´);
end;
end; [/color:94e06fc41d]
Ele faz certinho mas se eu colocar uma data errada ele me mostra esta menssagem de erro antes, como posso corrigir?
Inseri no evento OnExit o seguinte comando para validar a data
[color=red:94e06fc41d]procedure TForm1.MaskEdit10Exit(Sender: TObject);
begin
try
StrToDate(MaskEdit10.Text);
except
on EConvertError do
ShowMessage (´Data Inválida!´);
end;
end; [/color:94e06fc41d]
Ele faz certinho mas se eu colocar uma data errada ele me mostra esta menssagem de erro antes, como posso corrigir?
Wagnerg
Curtir tópico
+ 0
Responder
Posts
07/05/2003
Aroldo Zanela
Colega,
A mensagem refere-se a máscara de entrada e não com o manipulador de evento que você escreveu, possivelmente está obrigando o preenchimento em todas posições (zeros na editmask) e conforme diz a mensagem, pressione ESC para cancelar a entrada.
A mensagem refere-se a máscara de entrada e não com o manipulador de evento que você escreveu, possivelmente está obrigando o preenchimento em todas posições (zeros na editmask) e conforme diz a mensagem, pressione ESC para cancelar a entrada.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)