Runtime error 216 - Pointeurs - Procédures - Unit

Version imprimable

Bonjour à tous,
tout d'abord merci pour le temps que vous voulez bien me consacrer afin de lire mon message et je l'espère d'y répondre. Je vais essayer d'être rapide :
lorsque je compile mon programme, l'erreur 216 apparait, je vous poste mon code ci-dessous:

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
50
51
52
unit tirage;
 
interface
 
const max=9;
 
type
 img=record
      numero:integer; // numero de l'image
      compteur:integer; // nombre de fois que l'image a été attribué
     end;
 PImg=^img;
 listeImg=array[1..max*3] of PImg;
 
 Tableau=array[1..6,1..max] of pinteger;
 
var
 PListe:listeImg;
 PteurT:Tableau;
 
procedure tiralea(ligne,colonne:integer); 
 
implementation
 
procedure tiralea(ligne,colonne:integer);
var i,j,z,nombre:integer;
begin
 nombre:=trunc((ligne*colonne)/2); // valeur : nombre de paires ; astuce(trunc): dans tous les cas on obtiendra la même valeur !
 
 for i:=1 to nombre do
  begin
   new(PListe[i]);
   PListe[i]^.numero:=i; // image(i)=numero(i) ... jusque la… rien de très compliqu‚
   PListe[i]^.compteur:=0; // initialisation: l'image i a été attribué 0 fois
  end;
 
 for i:=1 to ligne do
  for j:=1 to colonne do
   repeat
    z:=random(nombre)+1; // on tire un numéro de carte au hasard
    if PListe[z]^.compteur<2 then  // si l'image n'a pas été utilisé plus de 2 fois(ou 2) alors...
     begin
      new(PteurT[i,j]);
      PteurT[i,j]^:=Pliste[z]^.numero;
      Pliste[z]^.compteur:=Pliste[z]^.compteur+1;
     end
    else PteurT[i,j]^:=0;  // Astuce
   until PteurT[i,j]^<>0;
 
end;
 
end.

Question subsidiaire: C'est mieux de faire un tableau de pointeurs pointant vers des entiers ou un pointeur pointant vers un tableau d'entiers? (Vous avez suivi? :mouarf:)

Merci pour le temps que vous aurez bien voulu m'accorder :ccool:

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
unit tirage;
 
interface
 
const
  maxRows = 6;
  maxCols = 9;
  maxList = maxRows*maxCols; // ou maxCols*3 ?
 
type
  TImgItem = record
    Index    : LongInt; // numero de l'image
    RefCount : LongInt; // nombre de fois que l'image a été attribué
  end;
  TImgList = packed array[0..maxList-1] of TImgItem;
 
  TCounter = packed array[0..maxRows-1, 0..maxCols-1] of LongInt;
 
procedure RandPull(const aRow, aCol: LongInt; var aImgList: TImgList; var aCounter: TCounter);
procedure InitImgList(var aImgList: TImgList);
procedure InitCounter(var aCounter: TCounter);
 
var
 ImgList : TImgList;
 Counter : TCounter;
 
 
implementation
 
 
procedure InitImgList(var aImgList: TImgList);
var N : LongInt;
begin
  for N := 0 to maxList-1 do
  begin
    aImgList[N].Index    := N;
    aImgList[N].RefCount := 0;
  end;
end;
 
procedure InitCounter(var aCounter: TCounter);
var R,C : LongInt;
begin
  for R := 0 to maxRows-1 do
    for C := 0 to maxCols-1 do
      aCounter[R, C] := 0;
end;
 
 
procedure RandPull(const aRow, aCol: LongInt; var aImgList: TImgList; var aCounter: TCounter);
var R, C, IL, N, Rw, Cl:LongInt;
begin
  if aRow < 0 then Rw := 0 else if aRow >= maxRows then Rw := maxRows-1 else Rw := aRow;
  if aCol < 0 then Cl := 0 else if aCol >= maxCols then Cl := maxCols-1 else Cl := aCol;
 
 
  // valeur : nombre de paires
  N := (Rw*Cl) div 2;
 
  for R := 0 to Rw do
    for C := 0 to Cl do
     repeat
       // on tire un numéro de carte au hasard
       IL := random(N);
 
       // si l'image n'a pas été utilisé plus de 2 fois
       if aImgList[IL].RefCount < 2 then
       begin
         aCounter[R,C] := aImgList[IL].Index;
         inc(aImgList[IL].RefCount);
       end
       else
         aCounter[R,C] := 0;
 
     until aCounter[R,C] <> 0;
end;
 
 
initialization
  Randomize;
  InitImgList(ImgList);
  InitCounter(Counter);
 
end.

24/12/2009, 20h54
ZeCaM

Merci pour la réponse, là je n'ai pas le temps d'essayer mais dès que je me lève demain je le test et je te tiens au courant.

J'ai trouvé mon erreur pour ce que ça pourrait intéresser:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 for i:=1 to ligne do for j:=1 to colonne do repeat z:=random(nombre)+1; // on tire un numéro de carte au hasard if PListe[z]^.compteur<2 then // si l'image n'a pas été utilisé plus de 2 fois(ou 2) alors... begin new(PteurT[i,j]); PteurT[i,j]^:=Pliste[z]^.numero; Pliste[z]^.compteur:=Pliste[z]^.compteur+1; end else PteurT[i,j]^:=0; // Astuce until PteurT[i,j]^<>0;
En faite le problème c'est new(PteurT[i,j]);, il est mal placé. En effet, s'il la condition n'est pas vérifiée alors la boucle recommence et il crée un nouvel emplacement mémoire pour le même emplacement du tableau => erreur

Pour résoudre le problème je propose donc tout simplement de virer cette ligne et d'écrire une boucle suivante:
Code:

1 2 3 4 for i:=1 to ligne do for j:=1 to colonne do new(PteurT[i,j]);
PS: Ça marche chez moi a+

en fait tu n'as pas besoin de pointeurs dans ce cas!

et de plus il ne faut pas oublier de liberer les pointeurs alloué a la fin.

en utilisant des pointeurs tu devrais avoir 4 fonction :

l'initialisation
le reset
le trie
la finalisation

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
 
unit tirage;
 
interface
 
 
const
  maxRow  = 6;
  maxCol  = 9;
  maxItem = maxRow * maxCol;
 
type
  PListItem = ^TListItem;
  TListItem = record
    index : integer;
    refCount : integer;
  end;
  TListArray = packed array[0..maxItem-1] of PListItem;
 
var
  MyList      : TListArray;
  MyListReady : boolean = false;
 
 
procedure ListReset;
procedure ListInitialize;
procedure ListFinalize;
 
implementation
 
procedure ListReset;
var N: integer;
begin
  if not MyListReady then
    ListInitialize(MyList)
  else
    for N := 0 to maxItem-1 do
    begin
      MyList[N]^.Index := N;
      MyList[N]^.RefCount := 0;
    end;
end;
 
procedure ListInitialize;
var N: integer;
begin
  if MyListReady then
    ListReset
  else
  begin
    for N := 0 to maxItem-1 do
    begin
      new(MyList[N]);
      MyList[N]^.Index := N;
      MyList[N]^.RefCount := 0;
    end;
    MyListReady := true;
  end;
end;
 
procedure ListFinalize;
var N : integer;
begin
  if not MyListReady then
    exit;
 
  for N := 0 to maxItem-1 do
    Dispose(MyList[N]);
  MyListReady := false;
end;
 
 
initialization
  Randomize;
  ListInitialize;
 
finalization
  ListFinalize;
 
end.
 
end.