[HELP!] Strings en Ada

Strings en Ada [HELP!] - Ada - Programmation

Marsh Posté le 12-10-2005 à 15:03:54    

Salut à tous!
 
J'ai un prog à réaliser avec ce vieux et cher Ada!
 
Je n'arrive pas à saisir et à afficher correctement une chaîne de caractère.
Voilà un exemple pour ilustrer mon problème:

Code :
  1. with Ada.Text_Io;       use Ada.Text_Io;
  3. Procedure main is
  5. Type TJours is record  // Composé de type Tjours
  6. nom: String (1..10);
  7. ...
  8. end record;
  10. type TSemaine is array (1..7) of TJours; // Tableau de jours
  12. T: TSemaine;
  14. procedure affecte_Jours (T: out TSemaine) is
  15. begin
  16.  T(1).nom := "Lundi"; // J'affecte le nom du jours 1 à lundi
  17.  ...
  18. end affecte_Jours;
  20. begin
  21. affecte_Jours(T);
  22. put(T(1).nom);   // J'affiche 'lundi'
  23. end;


Donc, voilà, mon programme se compile mais plante à l'execution.
Quelqu'un sait-il d'ou vient le problème?
 
Merci d'avance! :)

Reply

Marsh Posté le 12-10-2005 à 15:03:54   

Reply

Marsh Posté le 12-10-2005 à 16:11:00    

alors personne?

Reply

Marsh Posté le 12-10-2005 à 18:56:46    

Je clôture mon sujet tt seul!
J'ai finalement trouvé réponse à ma question...
La chaine de caractère que l'on affecte ( T(1).nom := "Lundi"; ) doit être de même longueur que le nombre de caractères contenu dans la variable (non, non ! ça n'était pas évident!).
Compléter donc ici "lundi" avec des espaces pour avoir le bon nombre de caractères... (10 dans cet ex).
Si ça peut aider qq tant mieux!


Message édité par Fused le 12-10-2005 à 18:58:08
Reply

Marsh Posté le 14-05-2006 à 22:15:39    

Bonjour,
Effectivement j'ai eu le même problème et je confirme:c'est bien une question de taille !

Reply

Sujets relatifs:

Leave a Replay

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