Discussion :

[pepito62]

Bonjour tout le monde !

J'ai un petit soucis avec mon Delphi 6.

Je viens de l'installer sur mon PC, j'ai effectué un tout petit prog et je n'arrive pas à :
- supprimer les exceptions Delphi lorsque j'exécute mon programme dans DELPHI (F9)
- exécuter mon application en mode debug


=> intercepter les exceptions
J'ai volontairement fais une erreur dans Delphi pour vous montrer l'exemple.

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TforMain.ButEssaiClick(Sender: TObject);
var
  Nombre: Integer;
begin
  try
    Nombre:= StrToInt('a');
  except
    ShowMessage('ERREUR');
  end;
end;

Je voudrais ne plus visualiser l'exception Delphi lorsque j'en ai défini une moi-même. Comment paramétré Delphi pour effectué ceci ?
Actuellement, j'ai une fenetre qui s'ouvre en me disant :

Le projet toto.exe a provoqué une classe d'exception EConvertError avec le message "a' n'est pas une valeur entière correcte. Processus stopé....

=> exécuter mon application en mode debug
Lorsque j'exécute mon programme dans DeLphi, j'aimerais que Delphi s'arrete sur mes point d'arret.

Merci de bien vouloir m'aider.

[Andnotor]

Dans les options du debuger, décoche Arrêt sur exception du langage

[Just-Soft]

Salut;

Pour ton second souci tu fais un F5 sur la ligné à debuger tu lance ton application et elle s'arrêtera là où tu a mis ton point d'arrêt puis à toi de continuer avec le mode pas à pas ou pas à pas approfondi.

Bonne chance.

[pepito62]

Merci Andnotor, je ne me souvenais plus de ce paramétrage.

Pour Just-Soft, F5 permet de mettre un point d'arrêt (Ligne en rouge). Lorsque je lance le programme via Delphi, il ne s'arrête pas. Et ma ligne est devenue verte caca-doigt avec une petite croix.

Je pense également que c'est du paramétrage mais où ?

[Andnotor]

Caca d'oie

C'est parce que tu n'utilises pas la variable Nombre, le compilateur ignore donc la ligne et le point d'arrêt est désactivé.

Ajoute un ShowMessage:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TforMain.ButEssaiClick(Sender: TObject);
var
  Nombre: Integer;
begin
  try
    Nombre:= StrToInt('a');
    ShowMessage(IntToStr(Nombre));
  except
    ShowMessage('ERREUR');
  end;
end;

[pepito62]

Non, ça fait exactement pareil. Logiquement, les conseils donné par Delphi n'empeche pas le débug.

J'ai mis mon point d'arrêt sur la ligne
Nombre:= StrToInt('a');

et non sur le begin de la procédure par exemple.