Fórum Execute funções depois de um erro #208268
22/01/2004
0
:shock: Ola galera do bem!!!
Tenho um edit que verifica se a data esta correta ou não se não estiver correta o delphi da um erro. Exemplo 32/01/2003 dará o seguinte erro
´32/01/2003´ is not a valid date, e ao dar ok no erro é setado o próximo campo. Como faço para que apos este erro, sete o foco no mesmo campo e se possível como faço também para traduzir a mensagem do erro?
Tenho um edit que verifica se a data esta correta ou não se não estiver correta o delphi da um erro. Exemplo 32/01/2003 dará o seguinte erro
´32/01/2003´ is not a valid date, e ao dar ok no erro é setado o próximo campo. Como faço para que apos este erro, sete o foco no mesmo campo e se possível como faço também para traduzir a mensagem do erro?
Teoprog
Curtir tópico
+ 0
Responder
Posts
22/01/2004
Beppe
Use um bloco try/except:
...
try
Data_Entrega := StrToDate(edEntrega.Text);
except
on E: Exception do
begin
ShowMessage(´Insira uma data válida.´);
edEntrega.SetFocus;
end;
end;
...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)