EDBEditError with message ´Invalid input value. Se Corrige?
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
Curtidas 0
Respostas
Aroldo Zanela
07/05/2003
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.
GOSTEI 0