Ada

[HELP!] Strings en Ada

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [HELP!] Strings en Ada

Fused

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 :

with Ada.Text_Io; use Ada.Text_Io;
Procedure main is
Type TJours is record // Composé de type Tjours
nom: String (1..10);
...
end record;
type TSemaine is array (1..7) of TJours; // Tableau de jours
T: TSemaine;
procedure affecte_Jours (T: out TSemaine) is
begin
T(1).nom := "Lundi"; // J'affecte le nom du jours 1 à lundi
...
end affecte_Jours;
begin
affecte_Jours(T);
put(T(1).nom); // J'affiche 'lundi'
end;

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

Merci d'avance!

Publicité

Fused

alors personne?

Fused

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

stupid_coder

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

FORUM HardWare.fr

Programmation

Ada

[HELP!] Strings en Ada

Sujets relatifs
importer données d'une base MySQL dans une autre..Help	Help sapin en langage C
[SQL] Erreur #306 sur Requete comparant 2 mémo ! Help plz	[VISUAL] ajouter une aide dans le dynamic help
[Access / SQL / SGBD] Evenement clic sur controle onglet ! help plz	help -requete sql comparaison 2chaines
Syntaxe du GOTO en Ada	Pb formulaire access et zone de liste ! help plz !
Help! Comment référencer gratuitement mon site web?	Script lie au journal d'evenement HELP !!!
Plus de sujets relatifs à : [HELP!] Strings en Ada

Page générée en 0.040 secondes