Discussion :

[Art19]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
  try
    tabU := TUTable.Create( symbolList_1m );
  except
    on EAccessViolation do begin
        symbolList_1m.Clear();
        Reset(fut);
        addSymbols( fut, symbolList_1m );
        tabU := TUTable.Create( symbolList_1m );
    end;
  end;

Et malgre cela, l'exception est quand meme levee... vous avez une idee?

[ShaiLeTroll]

Est le bon type d'excpetion ?
on ignore ce qu'est symbolList, TUTable ...

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
 
try
  try
    Mark := 1;
    tabU := TUTable.Create( symbolList_1m );
  except
    on EAccessViolation do begin
        Mark := 2;
        symbolList_1m.Clear();
        Mark := 3;
        Reset(fut);
        Mark := 4;
        addSymbols( fut, symbolList_1m );
        Mark := 5;
        tabU := TUTable.Create( symbolList_1m );
    end;
  end;
except
  on E: Exception do begin
      ShowMessage(Format('%s : %s [%d]', [E.ClassName, E.Message, Mark]);
  end;
end;

déjà faut voir le truc simple, qui pourquoi comment, ensuite tu rajoute chaque ligne, et tu vérifie

[Dirk-Pitt]

Cela peut être également une exception qui claque dans le gestionnaire d'exception.

[Fabrice ROUXEL 1]

L'instruction "raise;" déclarée dans la clause except permet de redéclencher l'exception.
Pour lever les exceptions il faut déclarer les plus spécialisées en premier.

[ShaiLeTroll]

Merci Fabrice, mais il n'a pas de raise dans son code, donc c'est qu'il a une exception dans son TUTable.Create qui arrive quoi qu'il arrive ...

[Dirk-Pitt]

Cela dit ... je me suis sans doute mal exprimé. Je voulais dire une exception générée par le code de traitement de la première exception.

[Art19]

il n'y a pas une option a activer dans delphi pour qu'il prenne en compte cela?

[evarisnea]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
  try
    tabU := TUTable.Create( symbolList_1m );
  except
    on EAccessViolation do begin
        symbolList_1m.Clear();
        Reset(fut);
        addSymbols( fut, symbolList_1m );
        tabU := TUTable.Create( symbolList_1m );
    end;
  end;

Et malgre cela, l'exception est quand meme levee... vous avez une idee?

l'exception levée est elle bien de type EAccessViolation ?
exécute aussi en pas à pas et pas à pas approfondi pour vérifier à quel niveau se produit l'exception.

[tourlourou]

supposons une violation d'accès due au passage de symbolList_1m mal (pas) initialisé : l'appel à symbolList_1m.Clear dans la clause Except ne manquerait pas d'en causer une nouvelle...

[Art19]

c'est bien une EAccessViolation mais j'ai change mon code donc maintenant c'est bon. Juste une question: il n'y a pas une option pour valider les trys sous delphi 7?

[Clorish]

Heuuu questiuon bete : Tu as pensé a desactiver l'option dans les outils de debogages ?

Sinon Delphi arrete l'execution systematiquement des qu'une exception est levee, interceptee ou non.

Execute le de maniere autonome et non via Delphi elle devrais passer.

[Art19]

voila, c'est ce dont je parlais. ok merci

[sjrd]

Bon peu importe que le sujet soit résolu ou non, je me permets d'intervenir.

Intercepter une EAccessViolation, c'est mal ! Les EAccessViolation ne sont pas des exceptions qui traduisent des erreurs d'exécution, mais bien des bogues de l'application. C'est du code mal écrit.

On n'intercepte pas une violation d'accès, on la prévient : test à nil surtout.