Problema com exception

Question

Boa tarde, pessoal.Por que ao disparar um gatilho com delphi a mensagem do delphi vem acompanhada com a palavra [color=red:09769e87b6]�Exception 1�[/color:09769e87b6].Ex. Tenho um  gatilho que verific...

Fsflorencio · Answer

Exception 1 deve ser o nome da exce��o criada por voc� no banco.
Voc� pode utilizar um componente TApplicationEvents para contornar esta situa��o.
No evento OnException voc� pode tratar a Vari�vel [b:f72997971c]E[/b:f72997971c] dando uma mensagem mais amistosa, mas para isto vc dever� marcar o in�cio de suas mensagens de erro com algum caracter. No exemplo vou usar �:�;

Ex.

begin
//Todo e qualquer tipo de exce��o vai passar por aqui

if Pos( [i:f72997971c][b:f72997971c]�:�[/b:f72997971c][/i:f72997971c], E.Message ) > 0 then
begin
MessageDlg( Copy( E.Message, Pos( [b:f72997971c]�:�[/b:f72997971c], E.Message ) + 1, Length(E.Message) ), MtWarning, [mbok], 0 );
end

//E.Message � a mensagem que o banco vai retornar
//No exemplo, mandei copiar a mensagem de erro da posi��o do [b:f72997971c]:[/b:f72997971c] para frente
end

Imoreira · Answer

Caro fsflorencio.exception 1 [color=red:7547df4b29]n�o[/color:7547df4b29] foi o nome dados para a minha exce��o.Mas de qualquer modo vou testar a sua dica.valeu....

Marcos Fernando · Answer

Valeu galera pela for�a agora deu Beleza,
ficou assim:

var msg : pansichar;
begin
try
SCREEN.Cursor := crHourGlass;
IBTable1.Delete;
SCREEN.Cursor := crdefault;
except
on E: Exception do begin
if Pos( #13, E.Message ) > 0 then
begin
msg := pchar(�Ocorreu o segunte erro: �+13+Copy( E.Message, Pos(13, E.Message ) + 1, Length(E.Message)));
SCREEN.Cursor := crdefault;
Application.MessageBox(msg,PChar(application.title),
mb_DefButton2+mb_IconError+mb_TaskModal);
end;
end;
end;
end;

Thanks

F�rum Problema com exception #48962