Board logo
get sur un type enumeratif
Edguy - 19/05/2004 à 20:12

Bonjour j'aimerais un coup de main pour faire un get sur un type enumeratif

--------------------------------------------------------------------------------------------------------------
Si je fais un get sur un type entier je ferais ceci


PACKAGE ES_Entiers IS NEW Integer_IO (Integer);

ES_Entiers.get(vcomm.Nombre);
--------------------------------------------------------------------------------------------------------------
si je veux mettre un get sur le type enumeratif ??????????????



               type Tprod is (E1001, E1002, E1003);
 

 Type tcomm is Record
   
   Produit:Tprod;    --de type Tprod(enumeratif)
   Nombre:Integer;
   
 end record;

 vcomm: Tcomm;  --var de type tcomm



               
               ??????????.get(vcomm.Produit);

----------------------------------------------------------------------------------------------------------
merci

ftbass - 21/05/2004 à 17:10

Après quelques tests, je dois dire que c'est plus dur que je ne le pensais.:-? J'y travaille...

Si quelqu'un sait comment s'y prendre, je suis intéressé :D

@+

103e - 25/07/2004 à 12:19

type Tprod is ( E1001, E1002, E1003 );

type Tcomm is
  record
 
     Produit  : Tprod;
     Nombre : Integer;
 
  end record;

package Produit_IO is new Ada.Text_IO.Enumeration_IO ( Tprod );


Vcomm : Tcomm;

...

  Produit_IO.Get ( Vcomm.Produit );

-----------------------------------------------
C'est un peu tard pour répondre mais tant pis.

ftbass - 25/07/2004 à 13:56

Il n'est jamais trop tard...

Merci beaucoup 103e :)
Ca sert toujours...