Discussion :

[polo69]

J'ai une erreur qui se manifeste au cours de l'exécution d'un programme de façon aléatoire sans que je puisse en trouver la cause et sans le bloquer.
la touche F9 le relance jusqu'à l'apparition de nouveau de ce message:
Si quelqu'un peut me donner une explication ?

[Jipété]

yop !

Un grand classique d'une tentative d'accès à un objet pas encore instancié ou libéré trop tôt. Si ça se produit n'importe où, faut revoir tout ton code, particulièrement là où tu crées des objets et là où tu les détruis.

Bon courage...

[bvsud]

Bonjour.

Personnellement, j'utilise ce petit "truc". C'est un peu comme un fichier .LOG , et c'en est un, ce qui ne m'empêche pas d'utiliser, dans les cas graves ( ) , le composant JvLogFile des Jedi.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Procedure Machin; 
begin
 
	// Code manipulant des variables globales ...
        // Procedure_Appelante : string; 
 
Procedure_Appelante := 'Machin';  // DEBUG
Lister_Variables(Procedure_Appelante, 'Z-Machin.TMP');  // DEBUG
 
	// Suite du code ...	
 
end;

La procédure listant l'état des variables à son appel :

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
 
Procedure Lister_Variables(Nom_Procedure : string; Nom_F_TMP : string);
Var   Rep_Du_Prog : string;
 
begin
      Rep_Du_Prog := ExtractFilePath(Application.ExeName);
 
      Lst_Debug := TStringList.Create;
 
      Lst_Debug.Add('Procedure_Appelante = ' + Nom_Procedure);
      Lst_Debug.Add('----------------------------');
      Lst_Debug.Add('');
 
      Lst_Debug.Add('Clef_Chn_Cherchee : ' + Clef_Chn_Cherchee);
      if Err_Reg_Constatee = True then Lst_Debug.Add('Err_Reg_Constatee : OUI')
      Else Lst_Debug.Add('Err_Reg_Constatee : NON');
 
      Nom_F_Tmp := Rep_Du_Prog + Nom_F_Tmp;
      Lst_Debug.SaveToFile(Nom_F_Tmp);
      Lst_Debug.Free;
end;

Si ça peut rendre service....

J'utilisais quelque chose comme ça du temps de Tubo C et Turbo Assembleur. Avec Turbo Debugger, je l'utilisais moins, mais qd-même.

S'il s'agit d'une erreur de pointeur (cf. la réponse de Jipété), on peut aussi la repérer comme ça. Ca m'est arrivé.

@Jipété : "Objet non instancié" : ça revient bien à une erreur sur un pointeur, en quelque sorte ? Après tout, en POO, on utilise des pointeurs sur des structures, sur des fonctions, etc, même si le terme lui-même est peu employé ? Je me trompe ?

[polo69]

Après avoir bataillé pas mal de temps, car le débogage ne situait pas l'erreur ?

C'était simplement sur un (type array [1..4] of byte) j'allais chercher l'lndice 0 ce qui me provoquai une erreur aléatoire dans mon prog
Il m'a fallu pratiquement refaire tout le prog pour voir quand l'erreur apparaissait, Comme quoi on s'embête des fois pour pas grand chose.
Merci pour votre réponse que je garde de coté pour la prochaine erreur

[Jipété]

@Jipété : "Objet non instancié" : ça revient bien à une erreur sur un pointeur, en quelque sorte ? Après tout, en POO, on utilise des pointeurs sur des structures, sur des fonctions, etc, même si le terme lui-même est peu employé ? Je me trompe ?

On peut dire ça... Encore que "erreur sur un pointeur" c'est plus que vague, mais bon, c'est dimanche, on va pas chipoter.

[ShaiLeTroll]

C'était simplement sur un (type array [1..4] of byte) j'allais chercher l'lndice 0 ce qui me provoquai une erreur aléatoire dans mon prog

Cela m'arrive aussi
En Debug, lorsque tu as une violation d'accès de ce genre, active l'option "Vérification des limites" c'est la direction R+ ou RANGECHECKS ON
A ne surtout pas conserver en Release car cela génère un plus gros EXE plus lent et de plus l'exception ERangeError n'est pas du tout explicite mais cela donne une piste pour démarrer un Debug

En Release, utilise toujours for Low(MonTableau) to High(MonTableau) do ...