problème sur des listes [Résolu]

[joss63]

Bonjour, j'ai un problème avec des listes.
Je dois faire un programme qui modéliserait le système des vélib
Je crée donc un type station qui contiendrait en plus d'autres infos la liste des stations environnantes.
Mon type station est un enregistrement de différentes infos sur la station.
La liste des stations environnantes est une liste de station.

Le problème, c'est que ma liste de stations contient des stations et les stations contiennent des listes de stations et il semblerait qu'ADA n'aime pas cela
voici son message d'erreur:
invalid use of type before its full declaration

Et voici mon code:

Code ADA :

1
2
3
4
5
6
7
8
9
10
11
12
type listeStation;
Type Station is record
  id: integer;
  -- ...
  stations_proches: listeStation;
end record;

Type listeStation is access elementStation;
Type elementStation is record
  tete: Station;
  suiv: listeStation;
end record;

Merci de votre aide

[jovalise]

Bonjour, je pense que tu peux faire ce que tu désire.
Mais il me semble que l'ordre des déclaration est différente.
Voici mon code.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
type Station_Type;
type Station_List_Type is access Station_Type;
Type Station_Type is
  record
     ....
  end record;

type Station_Element_Type is
  record
     Head : Station_Type;
     Next  : Station_List_Type
  end record;

Voilà, en espérant que ca le fasse.

[joss63]

Merci jovalise, ça marche