Discussion :

[kevpagnat]

Bonjour,

Je me permets de vous demander de l'aide car cela fait plusieurs jours que j'essaie désespérément de trouver une solution mais rien n'y fait.

Voilà, j'ai en variable globale un MAINS : array[1..8,1..5,1..5] of integer;

J'aimerai pouvoir remplir rapidement chaque partie du tableau, par exemple en faisant cela :
MAINS[1,1] := (1,1,2,3,4);
MAINS[1,2] := (1,1,2,3,4);
...

Quelle que soit la syntaxe utilisée (point virgule, virgule, parenthèse, crochets), cela ne passe pas.
Ma question est donc, est-on obligé de remplir un tableau case par case ?

Merci par avance pour toutes vos réponses.

[ShaiLeTroll]

La Syntaxe est un peu différente
Pour une variable globale, cela doif fonctionner ... sinon tu passe par une constante (qui devient modifiable, mais le plus sage était de la copier dans une autre variable)

Bon, ça doit donner ça, j'espère que c'est dans la bon ordre ...

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
MAINS : array[1..8,1..5,1..5] of integer =
  (
    ( 
      (1,1,2,3,4), 
      (1,1,2,3,4),
      (1,1,2,3,4), 
      (1,1,2,3,4),
      (1,1,2,3,4), 
    ),
      (1,1,2,3,4), 
      (1,1,2,3,4),
      (1,1,2,3,4), 
      (1,1,2,3,4),
      (1,1,2,3,4), 
    )...
  );

[rsc]

Une alternative, qui peut être intéressante si beaucoup de tes "lignes" sont identiques, est

Code :

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

1
2
3
4
5
6
7
8
9
type 
  TLigne = array[1..5] of intege;
const
  X: TLigne = (1,1,2,3,4);
...
 
TLigne(MAIN[1, 1] := X;
TLigne(MAIN[1, 2] := X;
...

Mais je reconnais que c'est un peu tordu

[Paul TOTH]

Bonjour,

Je me permets de vous demander de l'aide car cela fait plusieurs jours que j'essaie désespérément de trouver une solution mais rien n'y fait.

Voilà, j'ai en variable globale un MAINS : array[1..8,1..5,1..5] of integer;

J'aimerai pouvoir remplir rapidement chaque partie du tableau, par exemple en faisant cela :
MAINS[1,1] := (1,1,2,3,4);
MAINS[1,2] := (1,1,2,3,4);
...

Quelle que soit la syntaxe utilisée (point virgule, virgule, parenthèse, crochets), cela ne passe pas.
Ma question est donc, est-on obligé de remplir un tableau case par case ?

Merci par avance pour toutes vos réponses.

une idée rigolote comme ça ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
begin
  MAINS[1,1,1] := 1;
  MAINS[1,1,2] := 1;
  MAINS[1,1,3] := 2;
  MAINS[1,1,4] := 3;
  MAINS[1,1,5] := 4;
  move(MAINS[1,1], MAINS[1,2],     5 * SizeOf(Integer));
  move(MAINS[1,1], MAINS[1,3], 2 * 5 * SizeOf(Integer));
  move(MAINS[1,1], MAINS[1,5],     5 * SizeOf(Integer));
  move(MAINS[1], MAINS[2],     5 * 5 * SizeOf(Integer));
  move(MAINS[1], MAINS[3], 2 * 5 * 5 * SizeOf(Integer));
  move(MAINS[1], MAINS[5], 4 * 5 * 5 * SizeOf(Integer));
end;

[kevpagnat]

En fait non, mes lignes seront toutes différentes. C'est vrai je me suis mal exprimé dans mon 1er post. Ce serait plus du genre :
MAINS[1,1] := (1, 1, 2, 3, 4);
MAINS[1,2] := (6, 4, 3, 3, 3); ...

ShaiLeTroll, ton code est-il à mettre à la place de la déclaration de la variable globale ou en tant que définition ?
Si je colle ton code en déclaration, j'obtiens un magnifique "Expression attendue mais ')' trouvé"

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
MAINS : array[1..8,1..5,1..5] of integer =
  (
    ( 
      (1,1,2,3,4), 
      (1,1,2,3,4),
      (1,1,2,3,4), 
      (1,1,2,3,4),
      (1,1,2,3,4), 
    ),
      (1,1,2,3,4), 
      (1,1,2,3,4),
      (1,1,2,3,4), 
      (1,1,2,3,4),
      (1,1,2,3,4), 
    )
  );

C'est quand même pas simple tout ça ...

[kevpagnat]

Ah, bon, bah c'était pas grand chose finalement.
J'ai trouvé la coquille. Voici un exemple de code donc :

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
 
MAINS : array[1..8,1..5,1..5] of Integer =
  (
    (
      (1,1,2,3,4),
      (1,1,2,3,4),
      (1,1,2,3,4),
      (1,1,2,3,4),
      (1,1,2,3,4)
    ),
    (
      (1,1,2,3,4),
      (1,1,2,3,4),
      (1,1,2,3,4),
      (1,1,2,3,4),
      (1,1,2,3,4)
    )...
)

Y'avait juste une virgule de trop à la fin de chaque bloc.
Merci pour tout.
Bonne continuation à tous.

[Dr.Who]

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
const
  MatrixXCount = 8;
  MatrixYCount = 5;
  MatrixZCount = 5;
  MatrixOCount = MatrixXCount * MatrixYCount * MatrixZCount;
 
type
  PMatrix = ^TMatrix;
  TMatrix = packed record case integer of
    0: (TD : array[0..MatrixXCount-1, 0..MatrixYCount-1, 0..MatrixZCount-1] of integer);
    1: (OD : array[0..MatrixOCount-1] of integer);
  end;
 
 
var
  Mtx : TMatrix = (OD: (
    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,
    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,
    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,
    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,
    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,
    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,
    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,
    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5,    1,2,3,4,5
  ));