Re: ADA polymorphisme

Dimitri,

> Le problème est le cast de t_pt_obstacle en t_pt_voiture !!! j'ai
> l'erreur suivante :
> 
> target type must be general access type
> add "all" to type "t_pt_voiture" defined at voiture.ads:7
> 
> 
> Je ne veux pas envoyer mon type t_voiture mais un pointeur...

Fais ce que te dis le compilateur :)

Tu dois avoir une déclaration du genre:

    type t_pt_voiture is access voiture'class; (voiture.ads ligne 7)

Ajoute un "all":

    type t_pt_voiture is access all voiture'class; (voiture.ads ligne 7)

Je n'ai pas regardé le code.

Pascal.

-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|              http://www.obry.net
--| "The best way to travel is by means of imagination"
--|
--| gpg --keyserver wwwkeys.pgp.net --recv-key C1082595