Exceções
Olá,
Quero em um formulário tratar erros do seguinte tipo:
campo sem valor;
data incorreta;
porém quero que aparareça mensagens personalizadas, li um artigo sobre como tratar erros com o try/except, neste artigo mostra como usar o componente ApplicationEvents, e codificar o item OnExecption, como quero que apareça mensagens de erro diferente, tem como colocar um if ou case nesta propriedade, tipo:
procedure TFormCad.ApEventDataException(Sender: TObject;
E: Exception);
begin
if (Execption = ´EConvertError´) then
MessErroData.ShowModal;
if (Execption = ´EDivByZero´) then
MessErro.ShowModal;
end;
Valeu
Quero em um formulário tratar erros do seguinte tipo:
campo sem valor;
data incorreta;
porém quero que aparareça mensagens personalizadas, li um artigo sobre como tratar erros com o try/except, neste artigo mostra como usar o componente ApplicationEvents, e codificar o item OnExecption, como quero que apareça mensagens de erro diferente, tem como colocar um if ou case nesta propriedade, tipo:
procedure TFormCad.ApEventDataException(Sender: TObject;
E: Exception);
begin
if (Execption = ´EConvertError´) then
MessErroData.ShowModal;
if (Execption = ´EDivByZero´) then
MessErro.ShowModal;
end;
Valeu
Oadventista
Curtidas 0
Respostas
Rfpsatin
09/01/2004
p.ex.
coloque no evento OnException o seguinte...
If pos (UpperCase(´is not a valid date´), UpperCase(E.Message))>0 then
ShowMessage(´Data inválida, proceda a correção ´ + E.message )
else
if pos....
e ae vai, entendeu?
ps, vc pode colocar ele no teu datamodule que faz conexão com BD. Assim, como todas as demais units terão que declarar no uses esta unit vc garante controle global, sacou?!
abraço
Ricardo
coloque no evento OnException o seguinte...
If pos (UpperCase(´is not a valid date´), UpperCase(E.Message))>0 then
ShowMessage(´Data inválida, proceda a correção ´ + E.message )
else
if pos....
e ae vai, entendeu?
ps, vc pode colocar ele no teu datamodule que faz conexão com BD. Assim, como todas as demais units terão que declarar no uses esta unit vc garante controle global, sacou?!
abraço
Ricardo
GOSTEI 0