utilisation du 'class

[informatica1989]

Bonjour,

J'ai créé un record de la manière suivante dans le .ads :

Code :

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;

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 :

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 !!!

[Blackknight]

Je pense qu'il nous manque quelques infos.
Si problème il y a bien, il n'est pas forcément évident.
Pourrais-tu nous donner le message exact du compilateur et à quel appel il est lié ?
Aurais-tu plusieurs fonctions QuelPavage différent par le type de retour, les paramètres ?
Tiens, d'ailleurs, c'est quoi un Pavage ?

[informatica1989]

Merci d'avoir pris soin d'étudier mon cas, mais j'ai fait une autre implémentation pour résoudre mon problème !!!

Merci encore !!!

[Blackknight]

Mince !!! Du coup, on pourra pas en profiter ?