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.