ftbass
|
Publié le 25/07/2004 à 13:56 |
RE : get sur un type enumeratif
Il n'est jamais trop tard...
Merci beaucoup 103e 
Ca sert toujours... |
103e
Newbie 
Messages: 1
Inscrit(e) le: 25/07/2004
Déconnecté(e)
|
 Publié le 25/07/2004 à 12:19 |
RE : get sur un type enumeratif
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
|
Publié le 21/05/2004 à 17:10 |
RE : get sur un type enumeratif
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é 
@+ |
Edguy
Newbie
Messages: 1
Inscrit(e) le: 19/05/2004 Lieu de résidence : Montréal
Déconnecté(e)
|
Publié le 19/05/2004 à 20:12 |
get sur un type enumeratif
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 |
