Discussion :

[richard038]

bonjour,

j'ai créée une classe d'exception

Code :

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

1
2
3
4
5
6
7
8
EError = class(Exception)
    constructor Create(const lMessage : string; lError : integer);
    private
      FMessage : string;
    public
      ErrorCode : integer;
      property Message: string read FMessage write FMessage;
  end;

J'ai crée une procédure pour gérer toute les exception non relevée.

Tout fonctionne, par contre lorque qu'il y a interception d'une EError, le message est toujours vide. (et etonnament si j'intercepte l'erreur par un try, j'arrive à récuprer le message d'erreur).

Si quelqu'un a une idée.

Merci

Modération : Merci de penser aux balises [code]

[inoussa]

salut.
Pourquoi redeclarer la propriété Message? tu devrait avoir:

Code :

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

1
2
3
4
5
6
7
EError = class(Exception)
  constructor Create(const lMessage : string; lError : integer);
private
  FErrorCode : integer;
public
  property ErrorCode : integer read FErrorCode write FErrorCode;
end;

[richard038]

C'est dans mes essais pour comprendre pourquoi je n'avais pas de message

[sjrd]

Pourrais-tu nous montrer l'implémentation de ton constructeur... C'est forcément de là que vient ton erreur (sauf si bien sûr tu appelles le constructeur avec un argument vide )

[richard038]

Le code du constructeur

constructor EError.Create(const lMessage : string; lError : integer);
begin
FMessage := lMessage;
ErrorCode := lError;
end;

[inoussa]

salut.
Solution testée et validée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
EError = class(Exception)
  constructor Create(const lMessage : string; lError : integer);
private
  FErrorCode : integer;
public
  property ErrorCode : integer read FErrorCode write FErrorCode;
end;
 
constructor EError.Create(const lMessage: string; lError: integer);
begin
  Inherited Create(lMessage);
  ErrorCode := lError;
end;
 
procedure TestEError();
begin
   Try
    Raise EError.Create('Test EError',123);
  Except
    On E : EError Do Begin
      ShowMessageFmt('Msg="%s"; Code=%d',[E.Message,E.ErrorCode]);
    End
  End
End;

[richard038]

Super, ça marche.

Merci