Bonjour,
J'ai créé un record de la manière suivante dans le .ads :
Ensuite dans une des mes fonctions QuelPavage qui me retourne un pavage'class, je dois retourner un nouveau Pavage donc je procède comme suit :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 private type Othello_Builder is (Initialisation, Jouer); type Othello_Term (The_Builder: Othello_Builder )is record case The_Builder is when Initialisation => Coul : Couleur; when Jouer => Ot : access Pavage'Class; L : Ligne; Col : Colonne; C : Couleur; end case; end record; type Modele_O is access Othello_Term;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 function QuelPavage (O : Modele_O ) return Pavage'Class is begin case O.The_Builder is when Initialisation => return new Pavage'Class'(O.Ot); when jouer => return QuelPavage(O); end case; end QuelPavage;
Voilà l'erreur : expected type Pavage'class
Je ne vois pas comment la corriger ?
Merci d'avance pour votre aide !!!
Partager