Discussion :

[hbx360]

Bonjour,

J'ai créer un tableau de pointeurs de type integer mais à la compilation il me met : array type required in indexed component.

Voici mon fichier list.ads :

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
 
with ada.text_io;                         use ada.text_io;
with ada.integer_text_io;              use ada.integer_text_io;
with ada.float_text_io;                 use ada.float_text_io;
with ada.Strings.Unbounded;         use ada.Strings.Unbounded;
with ada.Text_IO.Unbounded_IO;   use ada.Text_IO.Unbounded_IO;
 
with ada.Containers.Generic_Array_Sort;
with Ada.Unchecked_Deallocation;
 
package list is
 
  type MAX_TAB is range 1..9;
  procedure List_Display;
 
  type pList is private;
 
  private
  -- Lettre r devant une variable veut dire record.
  -- Lettre p : pointeur.
 
  type pNode is access integer;
  type pList is array(MAX_TAB) of pNode;
 
end list;

list.adb :

Code :

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

1
2
3
4
5
6
7
 
package body list is
  procedure List_Display is
  begin
    put("Pour éviter que le compilo râle");
  end List_Display;
end list;

Le main.adb :

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
 
with ada.text_io;                         use ada.text_io;
with ada.integer_text_io;              use ada.integer_text_io;
with ada.float_text_io;                 use ada.float_text_io;
with ada.Strings.Unbounded;         use ada.Strings.Unbounded;
with ada.Text_IO.Unbounded_IO;   use ada.Text_IO.Unbounded_IO;
with list; use list;
 
with ada.Containers.Generic_Array_Sort;
with Ada.Unchecked_Deallocation;
 
procedure main is
  List : pList;
begin
  List(1) := new integer'(120);
  put("List(1).integer = "); put(List(1).integer); new_line;
end main;

[Yoratheon]

Bonsoir hbx360,

Tu ne peux pas affecter de valeurs à ta liste comme si c'était un tableau, car tu as déclaré pList comme étant privé en partie visible.
Lorsque tu utilise un package, tu ne voie que ce qui est en partie visible, la partie privé étant visible uniquement pour le package et ces descendants.

PS: même si tu avais le tableau en partie visible, tu aurai un problème à la ligne 16 de ton main. Pour accéder au contenu du pointeur, il faut utiliser le `.all` (ou rien du tout).

[hbx360]

Merci pour ta réponse. Problème résolu.

[Blackknight]

Rien à voir avec ta question mais dans le corps de List_Display, pour éviter que le compilo ne râle, tu peux lui dire explicitement qu'il n'y a rien à faire en utilisant null :

Code :

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

1
2
3
4
5
6
package body list is
  procedure List_Display is
  begin
      null;
  end List_Display;
end list;

Après si c'est pour implémenter plus tard, tu peux aussi te laisser un pense-bête et lever une exception à l'appel :

Code :

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

1
2
3
4
5
6
7
package body list is
  procedure List_Display is
  begin
      pragma Compile_Time_Warning (Standard.True, "List_Display non implementée");
      raise Program_Error with "Procedure List_Display non implémentée";
  end List_Display;
end list;

[hbx360]

Merci pour ta réponse.