Hello, j'ai un petit problème de compilation. J'utilise adagide avec GNAT comme librairie.
Donc voici le code en question :
Code :
- with ada.text_Io,ada.integer_Text_io;
- use ada.text_Io,ada.integer_Text_Io;
- procedure codage is
- --DECLARATIONS
- subtype Des_Phrases is string(1..100);
- subtype Un_Nombre_De_Lettre is integer;
- subtype Un_Texte is record
- Valeur : Des_Phrases;
- Longueur : Un_Nombre_De_Lettre;
- end record;
- --Procedures
- procedure Saisir_Un_Texte ( Mon_Texte : out Un_Texte) is
- begin
-
- Put_Line("Saisissez votre phrase" );
- New_Line;
- Get_Line(Mon_Texte.Valeur,Mon_Texte.Longueur);
-
- end Saisir_Un_Texte;
- procedure Afficher_Un_Texte ( Mon_texte : in Un_Texte ) is
- begin
-
- put(Mon_Texte.Valeur(Mon_Texte.Longueur));
-
- end Afficher_Un_Texte;
-
- --Déclaration des variables du corps
- Mon_Texte: Un_Texte;
- begin
-
- Saisir_Un_Texte(Mon_Texte);
- Afficher_Un_Texte(Mon_Texte);
-
- end codage;
|
Et donc lors de la compilation, voilà le message d'erreur que j'ai : " 11:24 anonymous record definitions are not permitted"
Je ne vois vraiment pas où mon code est faux pourtant....
Message édité par sleeper447 le 12-06-2006 à 18:45:43
.