Discussion :

[mat777]

Bonjour à tous,
je demande votre aide car je ne parviens pas à régler un problème.
Lors de la fermeture de mon programme (un jeu d'anagramme), je recois l'erreur suivante :

Exception EaccessViolation dans le module projet1.exe dans 00000000
Violation d'accès à l'adresse 00000000. Lecture de l'adresse 00000000.

J'utilise des pointeurs dans mon code, j'ai déja essayé de mettre des dispose() etc mais rien n'y fait.

Que représentent les adresses mémoires ci-dessus ?

Merci pour votre aide.

[Aka Guymelef]

Ces adresses ne représentent rien en particulier. Pour essayer de résoudre ce problème il faut que vous regardiez les destructeurs de vos différents objets pour voir si vous ne tenteriez pas de détruire un objet déjà détruit.

Par ailleurs vous avez mentionné l'utilisation de pointeurs (avec des records j'imagine), ce n'est pas très aisé de résoudre ce genre de problème comme ça sans infos, peut-être serait-il bon de poster quelques extraits de code pertinents pour que l'on puisse regarder.

[mat777]

Bonjour, merci de votre réponse.
Je poste ci-dessous un extrait de code.
C'est après l'execution de cette procédure et ensuite la fermeture du programme que l'erreur se produit. Elle n'apparati pas pendant l'execution de la procedure.

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
procedure placeMots(motTrie,vraiMot:string;indice:integer;tab:Ttab);
 
  var i,cour,nv,nvMot:Pliste;
 
 
begin
//Creation de la cellule contenant le mot trié.
nv:=new(PListe);
nv^.mot:=motTrie;
nv^.trieSvt:=NIL;
nv^.MotSvt:=NIL;
nv^.first:=true;
 
//Creation de la cellule contenant le mot non trié.
nvMot:=new(PListe);
nvMot^.mot:=vraiMot;
nvMot^.motSvt:=NIL;
 
 
   i:=tab[indice];
   cour:=tab[indice];
    while (i.mot<>MotTrie) and (i^.trieSvt <> NIL) do
      begin
        cour:=i^.trieSvt;
        i:=cour;
      end;
 
    if i.mot=MotTrie then  //mot trié déja présent
      begin
        if cour^.MotSvt = Nil then  cour^.MotSvt:=nvMot //premier "VraiMot" à insérer.
        else  //Nième "VraiMot" à insérer.
          begin
            while i^.MotSvt <> NIL do
              begin
                cour:=i^.MotSvt;
                i:=cour;
              end;
           end;
 
        cour^.motSvt:=nvMot;
 
      end
 
     else
      begin
        cour^.trieSvt:=nv;
        i:=cour^.trieSvt;
        i.motSvt:=nvMot;
        tab[indice]^.mot := IntToStr(StrToInt(tab[indice]^.mot)+1)
      end;
 
//end;//
 
end;

Au niveau des destructeurs, je n'en utilise aucun.
Merci

[Aka Guymelef]

Serait-il possible d'avoir également la déclaration des différents types utilisés ici ?

[mat777]

Bien sur voici la clause type :

Code :

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

1
2
3
4
5
6
7
8
9
10
Type
  PListe = ^Liste;
  Ttab = array [0..27000] of PListe;
 
  Liste = record
     mot:String;
     trieSvt:Pliste;
     motSvt:Pliste;
     first:boolean;
     end;

[bs.box]

L'utilisation du "debugger" et parfoit trés utile;
t'a déja débogguer ton code avec F8?
Essaye pas à pas.

[ShaiLeTroll]

Code :

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

nv:=new(PListe);

Ce new est bien étrange ! normalement en Delphi c'est une procédure ! As-tu fait ton propre New façon C++ ?

Enfin, une erreur sur 00 00 00 00, c'est tout simplement une tentative d'accès à une variable à nil, dans le OnClose, OnDestroy ou la section finalization d'une de tes unités ... ou dans le DPR si celui a été modifié ...

Sinon, il manque tout les dispose, mais je suppose que c'est une fonction général qui parcours une instance de Ttab pour libérer tout pointeur différent de nil

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure DisposeTab(var tab:Ttab);
var
  I: Integer;
begin
  for I := Low(tab) for High(tab) do
  begin
    if tab[I] <> nil then
    begin
      Dipose(tab[I]); // comme tab est typé dispose va effectuer finalize ...
      tab[I] := nil;
    end;
  end;
end;

[mat777]

J'ai essayé la procedure dispose mais j'arrive à un stackOverflow.
J'ai essayé de facon iterative et je retombe toujours sur la meme erreur de départ.

Concernant le new, c'est comme ca que j'ai appris à l'utiliser. Mais je ne pense pas qu'il y ait un probleme avec ca, le programme fonctionne très bien sauf à la fermeture.

Comment puis-je utiliser le pas-à-pas dans ce cas ci ?
faut-il utiliser on closeQuery ?

Merci.

[bs.box]

le programme fonctionne très bien sauf à la fermeture..

S'il y'a un bouton où vous cliquer pour quitter, posé un point d'arrét
à la première instruction que vous trouver dans l'évennement..
Ex:

procedure TForm1.Button1OnClick();
begin
x:=1; // <- Posé ici votre point d'arrèt en cliquant sur la ligne.
if c<....
end;

sinon, s'il n'ya pas de bouton, chercher le "OnClose" de la forme
que vous quitter pour fermer.

N'oublie pas de continuer avec F8
a+

[mat777]

ok et que suis-je sensé trouvé ?
des appels à des pointeurs referencant NIL ?
des pointeurs qui ne sont pas à NIL ?

C'est la que je bloque, lors de la fermeture de l'application tous mes pointeurs se trouvant dans mon tableau, referencent encore une adresse non NIL.

Est-ce la le problème ?

[bs.box]

Juste une question..
T'utilise pas par hasard des composants, genre skin, ou autres..

[mat777]

non, j utilise les composants fournis avec delphi, Tform,Topendialog etc.
Je n'utilise pas de skin.

As-tu une solution au cas ou j'aurais utilisé des skin sans le savoir ?

[bs.box]

As-tu une solution au cas ou j'aurais utilisé des skin sans le savoir ?

Si vous utilisez ce genre de composants, il est fort probable qu'à la finalisation
des unités s'engendre le problème, genre [ExceptionsExtèrnes] !!

Sinon, je vois pas comment t'aider; navré

[mat777]

je viens d'essayer de catcher l'exception EaccessViolation dans les evenements:
-OnCloseQuery
-OnCloseForm

et lorsque je fais en pas-a-pas il ne catch pas, c'est comme si l'exception se passait avant ou apres ces évenement or, je ne vois pas quand.

[bs.box]

Peut tu me poster votre code, je crois que c'est mieux..

[mat777]

J'ai posté dans mon 3eme message ci-dessus la partie de mon code qui après avoir été exécutée, produit l'erreur.

Cette procedure sert à placer des mots dans une hash table.
Les mots se placents sans problème mais une fois qu'ils sont placés, et que je ferme l'application, j'ai l'exeption qui apparait.

[bs.box]

Je ne peut pas t'aider comme ça..
il me faut au moin la ligne où tu exécute ce code.
J'ai copier le type + la procédure mais pour détecter
l'érreur il me fault ce que tu donne comme paramètres à cette
procédure..
je vous attends.

[mat777]

Voila j'ai joint les fichiers de mon projet dans l'archive.
Lorsque vous démarrez l'application, il faut cliquer sur "nouveau jeu" et ensuite charger le fichier "sept_en_ligne.txt" ensuite, lorsque vous fermez l'application, vous tomberez sur l'erreur.

Un grand merci.

[bs.box]

OK,
pour te dire franchement, je doute de cette procédure:

Code :

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

1
2
 
procedure placeMots(motTrie,vraiMot:string;indice:integer;tab:Ttab);

je l'ai reformulée, par ceci..

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
procedure placeMots(motTrie,vraiMot:string;indice:integer;tab:Ttab);
var cour,nv,nvMot:Pliste;
begin
//Creation de la cellule contenant le mot trié.
nv:=new(PListe);
nv^.mot:=motTrie;
nv^.trieSvt:=NIL;
nv^.MotSvt:=NIL;
nv^.first:=true;
 
//Creation de la cellule contenant le mot non trié.
nvMot:=new(PListe);
nvMot^.mot:=vraiMot;
nvMot^.trieSvt:=NIL;
nvMot^.MotSvt:=NIL; // <--- ceci été manquant
nvMot^.first:=true;    // <--- ceci été manquant
 
cour:=tab[indice];
while (cour^.mot<>MotTrie) and (cour^.trieSvt <> NIL) do
cour:=cour^.trieSvt;
 
if cour^.mot=MotTrie
   then begin //mot trié déja présent
   if cour^.MotSvt = Nil
      then  cour^.MotSvt:=nvMot //premier "VraiMot" à insérer.
      else begin //Nième "VraiMot" à insérer.
      while cour^.MotSvt <> NIL do
      cour:=cour^.MotSvt;
      //->
      cour^.motSvt:=nvMot;
           end;  //^^Nième "VraiMot" à insérer.
   //
   Dispose(nv);
        end   //^^mot trié déja présent
   else begin
   cour^.trieSvt:=nv;
   cour^.motSvt:=nvMot;
   tab[indice]^.mot := IntToStr(StrToInt(tab[indice]^.mot)+1)
        end;
end;

Je l'ai essayée mais pas d'éspoire..
Peut-Tu me décrire se que voulez vous faire exactement par cette procédure avec un dessin si possible; il serai plus compréhensible!!

a+

[mat777]

salut,

j'ai essayé ta version mais le problème reste le même.
Je vais demander pourquoi j'ai ce problème à mon prof.

Merci quand meme pour ton aide.