Tratemento de erros
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
Curtidas 0
Respostas
Carninhu
29/05/2003
Help =[[[[[[[[[[[
GOSTEI 0
Alexpatrik
29/05/2003
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
GOSTEI 0