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.

[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