Problème d'affectation d'un pointeur

Version imprimable

Bonjour,

J'ai un problème dans l'affectation d'un pointeur. Je m'explique :
J'affecte par l'intermédiaire d'une procédure une valeur à un pointeur:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
procedure ini_log1(var point:logs);
  begin
  point^.tabl:=initab;
  point^.tour_en_cours:=1;
  point^.joueur_en_cours:=1;
  point^.nombre_de_joueurs:=1;
  point^.timer_blue:=300;
  point^.timer_red:=300;
  point^.timer_green:=300;
  point^.timer_yellow:=300;
  point^.precedent:=nil;
  end;

Puis j'utilise cette valeur dans ma procédure :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
new(log_partie);ini_log1(log_partie);
new(point);
ini_log1(point);
new(point2);
ini_log1(point2);
log_partie^.precedent:=point;
point^.precedent:=point2;
resultat:=defaite_multi(timer_red,timer_blue,timer_green,timer_yellow,log_partie,joueur,tour,tab);
oracle_positif(resultat,test,texte);
dispose(log_partie);
dispose(point);
dispose(point2);

Mais celle-ci marche pas sauf si j'essaye de voir la valeur dans le pointeur avant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
new(log_partie);ini_log1(log_partie);
new(point);
ini_log1(point);
new(point2);
ini_log1(point2);
log_partie^.precedent:=point;
point^.precedent:=point2;
writeln(log_partie^.joueur_en_cours);//bug
resultat:=defaite_multi(timer_red,timer_blue,timer_green,timer_yellow,log_partie,joueur,tour,tab);
oracle_positif(resultat,test,texte);
dispose(log_partie);
dispose(point);
dispose(point2);

Est-ce que quelqu'un aurait une idée d'où ce bug peut provenir?

Il manque certaines infos pour déterminer l'origine du problème, notamment la définition de la structure pointée par le type "logs".

Et vous n'indiquez pas ce qui ne "marche pas": erreur lors de l'exécution, mauvaise valeur, ... ?

Ci-après un test très simple basé sur votre code, et qui a pourtant l'air de "marcher" (enfin pour ce que je crois en avoir compris):

Code:

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
program test;
 
type
  LOGS = ^LOGSDATA;
  LOGSDATA = record
    tabl:               pointer; //?
    tour_en_cours:      integer;
    joueur_en_cours:    integer;
    nombre_de_joueurs:  integer;
    timer_blue:         integer;
    timer_red:          integer;
    timer_green:        integer;
    timer_yellow:       integer;
    precedent:          LOGS;
  end;
 
procedure ini_log1(var point:logs);
begin
//  point^.tabl:=initab;
  point^.tour_en_cours:=1;
  point^.joueur_en_cours:=1;
  point^.nombre_de_joueurs:=1;
  point^.timer_blue:=300;
  point^.timer_red:=300;
  point^.timer_green:=300;
  point^.timer_yellow:=300;
  point^.precedent:=nil;
end;
 
var
  log_partie, point, point2: LOGS;
 
begin
  new(log_partie);ini_log1(log_partie);
  new(point);
  ini_log1(point);
  new(point2);
  ini_log1(point2);
  log_partie^.precedent:=point;
  point^.precedent:=point2;
  writeln(log_partie^.joueur_en_cours);
  writeln(log_partie^.precedent^.joueur_en_cours);
  writeln(log_partie^.precedent^.precedent^.joueur_en_cours);
//  resultat:=defaite_multi(timer_red,timer_blue,timer_green,timer_yellow,log_partie,joueur,tour,tab);
//  oracle_positif(resultat,test,texte);
  dispose(log_partie);
  dispose(point);
  dispose(point2);
end.

Résultat:

Citation:

...>test
1
1
1

05/06/2016, 15h02
CrochetFeve0251

Merci pour la réponse, j'ai voulut recréer un environnement dans un mini programme pour expliquer le bug mais quand je l'ai fait le bug n'est pas apparu dans le mini programme.Du coup je vais chercher dans ce sens voir si je trouve une différence entre celui-ci et le programme principal.