Recuperer une erreur

**jmjmjm** · 16/12/2005, 17h03

Comment Récuperer une erreur :
J'ai une application avec des coposants ADO lorsque l'utilisateur rentre un champ identique a un champ deja present dans la base j'obtient un message d'erreur

EDataBaseError : 'Modifications non effectué: risque de doublons .......

lorsque je l'execute avec Delphi jusque la tout va bien
mais dans ma fonction j'ai un try ... except et dans le except en cas d'erreur j'effectue des tache annexe et j'affiche un message et je souhaiterai que l'erreur retourne par EDataBaseError soit affiché dans mon message.

J'ai essayer ShowMessage(SysErrorMessage(GetLastError));
mais ce n'est pas une erreur API donc il ne me donne pas de message d'erreur existe t'il l'equivalent pour EDataBaseError.

J'espere etre clair et pas trop long.
Merci d'avance

**DMO** · 16/12/2005, 17h10

Pourquoi n'utilises-tu pas le message de l'exception comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
  try
    { traitements mode normal }
  except
    on E: EDataBaseError do
      begin
        { traitements mode dégradé }
        MessageDlg('Pouf une erreur : ' + E.message, mtInformation, [mbOK], 0);
      end;
  end;