Procedure TrataErro(vErro : EDBEngineError);
Var
x : Integer;
Begin
For x := 0 To vErro.ErrorCount -1 Do
Begin
If vErro.Errors[x].NativeError=0 Then
Case vErro.Errors[x].ErrorCode Of
9475:Erro('Espaço Insuficiente em Disco.');
9479:Erro('Tabela Está Cheia');
9429:Erro('Espaço Insuficiente em Disco.');
9432:Erro('Campo Obrigatório Sem Valor.');
...
10241:Erro('Registro em Uso Por Outro Usuário.');
Else
Erro('Comunique o Erro Abaixo ao Departamento de Informática.'+#13+
IntToStr(vErro.Errors[x].ErroCode+'-'+vErro.Errors[x].Message);
End;
End;
End;
ou
Procedure MostraErro;
Begin
ShowMessage('Ocorreu algum erro!');
end;
TForm1.Create;
Begin
Application.OnException:=MostraErro;
end;
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário