Estou com um problema quando digito uma data inválida. Aparece uma mensagem do próprio Delphi dando erro:
"Project P_Recibo.exe raised exception class EConvertError with message "11/13/2007" is not a valid date'. Process Stopped. Use Step or Run to continue".
Neste exemplo digitei uma data inválida para dar o erro.
Eu queria que fosse exibido uma mensagem do meu programa que a data é inválida e não a mensagem do Delphi.
O código que inseri no evento on exit do objeto Dbdata foi:
try
StrToFloat((Sender as tdbedit).Text); // não atribuirá a ninguém o resultado, é apenas para tentar obter o erro
except
on E:Exception do
begin
E.Message := 'Valor digitado não é válido';
raise;
end;
end;
Obs.: eu peguei esse código em um post aqui no site para ver se dava certo no meu programa, mas vai direto para a mensagem do Delphi e não do meu programa. Como eu faço para corrigir isso?
Outra pergunta, no Delphi há alguma função para verificar se a data é válida?, exemplo, no Visual Basic há a função IS DATE, que verifica se o conteúdo de um objeto é uma data válida (if is date(edit1.text) = true), ser não me engano a sintaxe é essa.
Pergunta
Fireboard
Estou com um problema quando digito uma data inválida. Aparece uma mensagem do próprio Delphi dando erro:
"Project P_Recibo.exe raised exception class EConvertError with message "11/13/2007" is not a valid date'. Process Stopped. Use Step or Run to continue".
Neste exemplo digitei uma data inválida para dar o erro.
Eu queria que fosse exibido uma mensagem do meu programa que a data é inválida e não a mensagem do Delphi.
O código que inseri no evento on exit do objeto Dbdata foi:
Obs.: eu peguei esse código em um post aqui no site para ver se dava certo no meu programa, mas vai direto para a mensagem do Delphi e não do meu programa. Como eu faço para corrigir isso?
Outra pergunta, no Delphi há alguma função para verificar se a data é válida?, exemplo, no Visual Basic há a função IS DATE, que verifica se o conteúdo de um objeto é uma data válida (if is date(edit1.text) = true), ser não me engano a sintaxe é essa.
Obrigado
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.