Erreur de compilation sur un record

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 :

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

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

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

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

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:

Sujets relatifs:

Leave a Replay

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

Name *

Email *

URL

Message *