Fórum Tratemento de erros #163399
29/05/2003
0
Ae pessoal to precisando de ajuda com tratamento de erros pq eu to usando um maskedit de data, mas qndo vc nao completa ele(Ex: 11/11/__) da erro de input value, e mesmo q eu coloque uma função pra verificar o tamanho do campo se é 8, ele exibe essa mensagem e para o programa. Alguem sabe como resolver isto? grato desde ja
Carninhu
Curtir tópico
+ 0
Responder
Posts
29/05/2003
Carninhu
Help =[[[[[[[[[[[
Responder
Gostei + 0
30/05/2003
Alexpatrik
var
TesteData : TDateTime;
Begin
TRY
TesteData := StrToDate(MaskEdit1.Text)
EXCEPT
ShowMessage(´Data Inválida´);
End;
End;
Usei isso e funcionou. Caso o MaskEdit não tiver uma data válida, ele retornará a mensagem.
Valeu?
Patrik
TesteData : TDateTime;
Begin
TRY
TesteData := StrToDate(MaskEdit1.Text)
EXCEPT
ShowMessage(´Data Inválida´);
End;
End;
Usei isso e funcionou. Caso o MaskEdit não tiver uma data válida, ele retornará a mensagem.
Valeu?
Patrik
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)