Discussion :

[titou31000]

Bonjour,

Cela fait un peu plus d'un an que je développe sous Delphi et il ne m'était jamais arrivé ça, j'obtiens une violation d'accès à la fin d'une procédure...
Le code de ma procédure s'exécute, aucune erreur et l'exception apparait sur le end...

Avez-vous déjà eu ce cas la?

[BuzzLeclaire]

Bonjour,

Cela fait un peu plus d'un an que je développe sous Delphi et il ne m'était jamais arrivé ça, j'obtiens une violation d'accès à la fin d'une procédure...
Le code de ma procédure s'exécute, aucune erreur et l'exception apparait sur le end...

Avez-vous déjà eu ce cas la?

Utilise les points d'arrêt, mets des showmessages un peu partout.

Sans le programme c'est chaud de t'aiguillé, et puis de quelle erreur exactement tu parles ?

Surement un Free mal placé...

[titou31000]

J'ai utilisé ces deux moyens pour essayer de trouver ce qui n'allait pas, en vain... Le compliateur ne me surligne même pas la ligne, c'est juste que en pas à pas, c'est le end qui déclenche l'exception.

L'erreur est une EAccessViolation avec message "Violation d'acces à l'adresse...dans le module...Lecture de l'adresse..."

C'est vrai que j'utilise des free dans ma procédure, il doit y avoir une libération qui flanche.

[BuzzLeclaire]

...C'est vrai que j'utilise des free dans ma procédure, il doit y avoir une libération qui flanche.

C'est partiquement sûr...

Je me suis déjà aussi fait avoir, reprend ton programme...

[titou31000]

Oui je vais revoir tout ça!!

Tu penses que je dois revoir tout le programme ou seulement la procédure qui fait apparaitre l'erreur?

[BuzzLeclaire]

Oui je vais revoir tout ça!!

Tu penses que je dois revoir tout le programme ou seulement la procédure qui fait apparaitre l'erreur?

Regarde dans ta procédure si tu utilise un TStringlist qui serais libéré avant par exemple...

[ShaiLeTroll]

Lors du End, cela libère implicitement les record, les tableaux fixes et les chaines locales !

Tu as peut-être écrit trop loin dans un tableau et modifier une autre zone mémoire

[titou31000]

Ca voudrait peut être dire que le end essaye de libérer une zone mémoire qui est déjà libérée ou pas du tout?

[Rayek]

Si tu nous montrais le code, je pense qu'il serait plus facile de trouver d'où vient ton soucis ...

[guillemouze]

Lors du End, cela libère implicitement les record, les tableaux fixes et les chaines locales !

Et ça libère aussi les interfaces. Si tu as un pointeur sur une interface qui a été libéré (peu probable mais ca m'est déjà arrivé), tu as un plantage au end.

[Nono40]

Autre cas ou le end plante : si dans tes variables locales tu as un tableau et que tu écrits en dehors des limites. Tu peux détruire l'adresse de retour dans la pile CPU.
Ou que tu écrits de la même manière dans une chaine et/ou un objet local.

[titou31000]

Bonjour,

Merci a vous tous de vous pencher sur mon cas!! je suis toujours à la recherche de m'allocation mémoire qui me produit ce gentil message, mais je ne désespère pas

[ShaiLeTroll]

Tient lit ce sujet Comment éviter l'erreur eAccessViolation en Delphi avec try except ?
C'était justement une mauvaise démonstration de Violation d'Accès, c'est un cas possible pour ton problème

Sinon n'est pas forcément une allocation mais ceci par exemple

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
var
  i : Integer;
  T10: array[1..10] of Integer;
  T5: array[1..5] of Integer;
  // k: integer;
  // b: byte;
begin
  for i := 1 to 10 do
    T10[i] := i;
 
  for T5 := 1 to 10 do // Oups mauvaise borne !
    T5[i] := i; // la c'est soit ça passe, soit ça plante totalement
 
  // en activant k et b, tu verras ce que ça donne !
 
  for i := Low(T10) to High(T10) do
    ShowMessage(IntToStr(T10[i])); // devrait afficher -1 à -10 
 
  for i := Low(T5) to High(T5) do
    ShowMessage(IntToStr(T5[i])); // devrait afficher 1 à 10 (si l'écriture passe, la lecture en général passe aussi)
 
end;

Pour se protéger, toujours utiliser des bornes vérifiées !

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
var
  i : Integer;
  T10: array[1..10] of Integer;
  T5: array[1..5] of Integer;
begin
  for i := Low(T10) to High(T10) do
    T10[i] := -i;
 
  for i := Low(T5) to High(T5) do
    T5[i] := i;
 
  for i := Low(T10) to High(T10) do
   ShowMessage(IntToStr(T10[i])); // devrait afficher -1 à -10 
 
  for i := Low(T5) to High(T5) do
   ShowMessage(IntToStr(T5[i])); // devrait afficher 1 à 5 
 
end;

d'ailleurs, teste le code suivant !
Cela te montre comment via T5 on peut déborder sur T10

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  i : Integer;
  T5: array[1..5] of Integer;
  T10: array[1..10] of Integer;
begin
  for i := Low(T10) to High(T10) do
    T10[i] := -i; // T10 ne contient que du Négatif !
 
  for i := 1 to 14 do // 5 + 9, oui oui ça déborde !
    T5[i] := i;
 
  for i := Low(T10) to High(T10) do
   ShowMessage(IntToStr(T10[i])); // devrait afficher 6 à 14 et -10 ! 
end;

[Papy214]

Est-ce que tu as coché toutes les options (sauf l'optimisation) dans la compilation du projet ? Vérification des débordements et tutti quanti ...
ça peut aider