Discussion :

[stanislas]

Bonjour,

J'ai un problème, j'ai le code suivant (Code modifié pour expliquer mon problème):

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
 
procedure Connect;
begin
  try
    //Du code : Connection à ma BD
  except
    on E: TDBXError do
    begin
      DebugLog('Erreur à la connection : ' + E.ToString);
      raise E;
    end;
  end;
end;
 
procedure CallConnect;
begin
  try
    connect;
  except
    halt;
  end;
end;

Hors entre le Raise E; de connect et le halt de CallConnect j'ai Opération de pointeur incorrecte qui est levé (Je peux voir cette exception en debug). Alors que je n'ai pas de code perso entre les deux ... je n'arrive pas trop à comprendre.

[nostroyo]

Question de circonstance dans ce cas la, as-tu un TObjectList quelques part?

[ShaiLeTroll]

Code :

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

1
2
3
4
5
    on E: TDBXError do
    begin
      DebugLog('Erreur à la connection : ' + E.ToString);
      raise;
    end;

Cela suffit, en fait, le raise va redéclencher l'exception en cours, si tu fais un Raise E, cela va donc mettre la même exception deux fois dans le "Garbage Collector" des Exceptions et donc la libérer deux fois !

[nostroyo]

héhé bien vu

[stanislas]

Merci !!! Je teste ceci dans un petit moment.

[stanislas]

Super !! ça marche, merci !