Fórum PRoblema com Data no Delphi #195344
16/11/2003
0
begin
try
StrToDate(MaskEdit2.Text);
except
on EConvertError do
ShowMessage (´Data Inválida!´);
end;
end;
o problema é o seguinte:
Estou usando um MaskEdit e configurei o EditMask para o formato Date.
Quando incluo um número só (ex: 1 / / ) e teclo TAB, o Delphi dá um erro dizendo que a Data é inválida(só que não é o erro do ShowMessage) é um erro de execução.
Como faço para criar uma ShowMessage para evitar o erro acima?
OBrigado!
Plunky
Curtir tópico
+ 0Posts
16/11/2003
Carlos Bernardo
tente fazer o teste chamando o executável, provavelmente não vai dar o erro, ou senão vc está usando 00/00/0000;1 na mascara, aí tente trocar pelo número 9....
Gostei + 0
17/11/2003
Educdc
va no menu TOOLS - debugger opitons - NA GUia language exceptions e desmarque Stop on Delphi Exceptions
:arrow: qdo vc sai do MaskEdit2.Text o Delphi executa ´StrToDate(MaskEdit2.Text);´ como vc digitou apenas ´1//´ entao ele vai dar erro pq n tem como converter isso para data... esse CheckBox eh ligado as excessoes do Delphi
Abracos
Gostei + 0
17/11/2003
Plunky
invalid input value. Use escape key to abandon changes.
Não teria como aparecer em vez disso a mensagem do ShowMessage (´Data Inválida´) ?
Obrigado
Gostei + 0
17/11/2003
Celsoctorres
ps. se vc não digitar todos os números que contém a data o programa ainda mostrará um erro nativo do delphi.... ou seja tem que ser preenchido 17/11/03, se vc digitar somente 1 / / mostrará o erro, mas se vc digitar por exemplo 17/13/03, ou 35/12/03 mostrará data inválida.
vc pode fazer com o delphi conte o nº de caracteres para validar este...se o qtde de nº for menor que (8) que seria os dias/mes/ano sem esquecer da barra...
espero te ajudado
:wink:
Gostei + 0
17/11/2003
Plunky
Gostei + 0
17/11/2003
Carlos Bernardo
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)