Re: Aide Ada

On 9 fév, 12:24, Ludovic Brenta <ludo...@ludovic-brenta.org> wrote:
> animatri...@gmail.com writes:
> > On 9 fév, 06:23, "Jeffrey R. Carter"
> > <spam.jrcarter....@acm.nospam.org> wrote:
> >> animatri...@gmail.com wrote:
>
> >> > package body Coureurs is
>
> >> >    Coureurs : array (1..Nbcour) of NomDeCoureur;
> >> > with Coureurs; use Coureurs;
>
> >> > package body Performances is
>
> >> >    Put(string(Coureurs(Tperf.el.num)));
> >> > L'erreur est Incorrect use of "Courreurs"
>
> >> L'array Coureurs (nom complet Coureurs.Coureurs) se trouve dans le body du
> >> package Coureurs, et n'est pas visible hors du package body Coureurs. Dans
> >> Performances, Coureurs est le nom du package.
>
> >> --
> >> Jeff Carter
> >> "Sir Lancelot saves Sir Gallahad from almost certain temptation."
> >> Monty Python & the Holy Grail
> >> 69
>
> > D'accord.  J'ai essayé de le mettre dans le package Lexique, mais
> > c'est la même chose.  Je ne vois pas comment appeller ce tableau,
> > pourriez-vous m'indiquer comment ?
>
> Déclare le tableau dans la spécification (et non le corps) du paquet
> Coureurs.
>
> > Pour revenir au premier problème, cela ne marche pas autant avec un
> > | qu'un in, voici le code :
>
> > elsif Tperf /= null AND THEN Convert_tps(P.tps, Tperf.el.tps) = in
> > Sup .. Egal then
> > ou
> > elsif Tperf /= null AND THEN Convert_tps(P.tps, Tperf.el.tps) = Sup |
> > Egal then
>
> > Dans le premier cas, j'ai missing operand.
> > Dans le second, j'ai l'erreur juste après le Sup : "missing then".
>
> Enlève le signe = et relis mon article précédent pour la syntaxte
> correcte :)
>
> --
> Ludovic Brenta.

Merci c'est corrigé pour Sup .. Egal.

Pour le tableau, dans mon coureurs.ads :

Package Coureurs is


      	Coureurs : array (1..Nbcour) of NomDeCoureur;

-- Puis les différentes procédures
end Coureurs;

Sauf que j'ai toujours la même erreur :'(

Merci pour la réponse