Erreur de compilation sur un record

Erreur de compilation sur un record - Ada - Programmation

Marsh Posté le 12-06-2006 à 18:45:20    

Hello, j'ai un petit problème de compilation. J'utilise adagide avec GNAT comme librairie.
Donc voici le code en question :

Code :
  1. with ada.text_Io,ada.integer_Text_io;
  2. use ada.text_Io,ada.integer_Text_Io;
  3. procedure codage is
  4. --DECLARATIONS
  5.    subtype Des_Phrases is string(1..100);
  6.    subtype Un_Nombre_De_Lettre is integer;
  7.    subtype Un_Texte is record
  8.       Valeur : Des_Phrases;
  9.       Longueur : Un_Nombre_De_Lettre;
  10.    end record;
  11. --Procedures
  12.    procedure Saisir_Un_Texte ( Mon_Texte : out Un_Texte) is
  13.       begin
  14.  
  15.       Put_Line("Saisissez votre phrase" );
  16.       New_Line;
  17.       Get_Line(Mon_Texte.Valeur,Mon_Texte.Longueur);
  18.  
  19.    end Saisir_Un_Texte;
  20.    procedure Afficher_Un_Texte ( Mon_texte : in Un_Texte ) is
  21.       begin
  22.  
  23.       put(Mon_Texte.Valeur(Mon_Texte.Longueur));
  24.  
  25.    end Afficher_Un_Texte;
  26.  
  27. --Déclaration des variables du corps
  28. Mon_Texte: Un_Texte;
  29.       begin
  30.      
  31.       Saisir_Un_Texte(Mon_Texte);
  32.       Afficher_Un_Texte(Mon_Texte);
  33.      
  34. 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
Reply

Marsh Posté le 12-06-2006 à 18:45:20   

Reply

Marsh Posté le 12-06-2006 à 18:53:11    

Salut sleeper447,
tu dois changer ton subtype en type ligne 11  :jap:

Reply

Marsh Posté le 12-06-2006 à 18:59:52    

Mon dieu, maintenant que tu me le dis, j'ai envie d'aller me cacher sous une tonne de merde  :sweat: .
Heureusement que je 'débute' et merci pour ton aide  :jap:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed