Discussion :

[AL1986]

Salut,
Quand une erreur se produit (exception levée), y a-t-il un moyen -à part la manipulation directe par les noms des erreurs- de récupérer le numéro de l'erreur et/ou une description pour pouvoir faire des tests dessus ou d'autres manipulations (affichage de message d'erreurs ....) ? Merci.

[ShaiLeTroll]

Si l'exception n'ajoute pas de propriété en plus que celle de la classe de base, il est bien souvent impossible de savoir où celle si c'est produite en dehors d'un marqueur via une variable, ou un code assembleur que l'on trouve quelque part sur le forum (ou dans le site)

tu peux mettre ce code dans ton except, cela devrait te donner quelques infos

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
 
  try
    ...
  except
    {$IFOPT C- }
      {$DEFINE ASSERTIONS_WAS_OFF}
      {$C+}
    {$ENDIF}
    SystemAssertErrorProc := AssertErrorProc;
    try
      AssertErrorProc := OverLoadAssertErrorProc;
      Assert(FlagAssert, Exception(ExceptObject()).Message);
      raise ExceptClass(ExceptObject().ClassType).CreateFmt(MSG_OVERLOAD_ASSERT_RAISE, [AMessage, AFilename, ALineNumber, Integer(AErrorAddr)])
    finally
      AssertErrorProc := SystemAssertErrorProc;
    end;
    {$IFDEF ASSERTIONS_WAS_OFF}
      {$C-}
    {$ENDIF}
  end;

et ça dans une unité de variables

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
// Exception non interceptée avec Information d'Assertions
const
  MSG_OVERLOAD_ASSERT_RAISE = '%s'#13#10'Unité : %s'#13#10'Ligne : %d'#13#10'Addresse : $%x';
var
  SystemAssertErrorProc: TAssertErrorProc;
  FlagAssert: Boolean = False;
  AMessage, AFilename: string;
  ALineNumber: Integer;
  AErrorAddr: Pointer;
 
procedure OverLoadAssertErrorProc(const Message, Filename: string; LineNumber: Integer; ErrorAddr: Pointer);
begin
  AMessage := Message;
  AFilename := Filename;
  ALineNumber := LineNumber;
  AErrorAddr := ErrorAddr;
end;

tient j'ai l'ASM, mais c'est une vieille version, il y a en une qui fait mieux en donnait même le nom de la méthode publiqué en cours je crois

Code :

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

1
2
3
4
5
  except
    {$IFOPT C- } {$C+} {$DEFINE RemettreAOff} {$ENDIF}
    Assert(FlagAssert); asm @@bidon:push edx;Push eax;mov edx,offset @@bidon;mov eax,cs:[edx-$13];mov dword ptr LineNumber,eax;pop eax;pop edx; end;
    {$IFDEF RemettreAOff} {$c-} {$ENDIF}      //***
    raise ExceptClass(ExceptObject().ClassType).CreateFmt(MSG_OVERLOAD_ASSERT_RAISE, [AMessage, '?', LineNumber, 0])

[sjrd]

Les exceptions sont des objets, instances de classes. Dans 99,9 % des cas, la classe de l'exception hérite de Exception. Des tests comme les différents on de la clause except ou des is sur des classes d'exception permettent de savoir quel type d'exception a eu lieu.

Pour afficher un message d'erreur, tu peux faire un MessageDlg avec Error.Message, qui est prévu pour, à la base

Qu'entends-tu exactement par le numéro de l'exception ?

[AL1986]

Pour afficher un message d'erreur, tu peux faire un MessageDlg avec Error.Message, qui est prévu pour, à la base

Cela veut-il dire que error.message contient le message d'erreur associé à l'erreur qui s'est produite ?

Qu'entends-tu exactement par le numéro de l'exception ?

Je disais ça, pour savoir si les erreurs sont catégoriées par numéro ou seulement par nom.

[sjrd]

Cela veut-il dire que error.message contient le message d'erreur associé à l'erreur qui s'est produite ?

Code :

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

1
2
3
4
5
6
try
  ...
except
  on Error : Exception do
    // ici Error.Message est une string qui contient le message d'erreur
end;

Je disais ça, pour savoir si les erreurs sont catégoriées par numéro ou seulement par nom.

Elles sont catégorisées par classes, comme je l'ai dit plus haut : on les trie avec des on et des is.