Bonjour,
 
J'ai un tableau d'entiers en variable. Je dois afficher ce tableau à l'aide d'une procédure que je dois écrire dans un package, sans utiliser de put ni de put_line. Je sais que c'est possible car j'ai déjà vu un exemple.
Le problème c'est que je ne sais plus trop à quoi ça ressemble. Je me rappelle juste avoir vu un "Unbounded string" dans le code, qui ne faisait que quelques lignes pour afficher quelques caractères.
 
C'était une fonction qui retournait "je sais pas quoi" convertit en string. return(to_string(truc)) je crois.
 
Merci

Interfaces.C.Streams peut être ?

peut-être ^^
 
Mais je débute, j'aurai besoin d'un exemple pour savoir si c'est ça. Et puis au pire, si c'est pas ça et que ça marche, tant mieux. L'idée c'est de faire un Put(Fonction(truc)) dans la procédure principale, sans faire d'entrée/sortie dans "Fonction".

Ahlala, c'est pas du tout ce que tu veux dans le premier message.
 
Parce que là, tu fais bien "put", alors, une fonction qui fait Put(fonction(Truc_a_afficher));
C'est simplement une fonction :

function (Truc : in T_Truc) return T_Truc_Qui_S_Affiche;

T_Truc, c'est n'importe quoi et T_Truc_Qui_S_Affiche c'est tout ce qui est affichable.
 

Oui, j'ai eu l'impression d'(être plus clair dans mon second post  
 
Dans ce cas, comment faire pour enregistrer plusieurs variables dans T_Truc ? exemple :
"Tableau : 1,5,4,8,9,10
Nombre d'elements : 6"

 
Tu veux l'afficher ou l'enregistrer ?
 
 
Je pense que tu dois réécrire "put" pour afficher ou utiliser Ada.Stream.Stream_Io pour enregistrer.

Je veux l'enregistrer dans le "return" de la fonction, pour l'afficher ensuite dans la procédure principale grâce à put.

 
tu peux pas !

Je l'ai pourtant vu
Mais le code était spécial, c'était pas des affectations.
 

Donc y'a pas moyen d'afficher le texte que je viens de montrer en procédant comme ça ? C'est le retour à la ligne qui dérange ?

 
Woai ! C'est un type composé, et faut composer la procédure put qui va avec !

 
D'ailleurs même pour le tableau, faut écrire une procédure ad'oc.

Bizarre. Je me rappelle du code, ça tenait sur 10 lignes, il n'y avait qu'une seule fonction. On retournait la variable après l'avoir convertit en string (fonction to_string je crois)

 
Ce que tu peux faire là, c'est :
 

function Table_To_String(Table : in T_Table) return string is
  Table_String : unbounded_String :=  To_Unbounded_String("Elements de la table ::= " );
begin
  if Table.Nb_Element < Table.Elements'first or
     Table.Nb_Element > Table.Elements'length then
       return "Nombre d'élément invalide";
  end if;
  for in in 1..Table.Nb_Element loop
      Table_String := Table_String & To_Unbounded_String(integer'image(Table.Elements(I) & ", " ));
  end loop;
   return To_String(Table_String);
end To_String;

Merci
 

Ca ressemblait à ça !
 
edit :
Je pourrais simplement savoir comment ajouter un New_line si c'est possible ? merci

Ca me met ça pour le "&" qui se trouve juste avant la virgule : ", "

 
J'ai fini de corriger.

D'accord.
 
Sinon dernière question, à quoi sert ceci :
 & character'val(13);

 
Pardon, j'avais oublié un truc, maintenant, c'est correct. A peu près.
 
Le charcater val 13 est le retour à la ligne, 10 ou 13, ça dépend des système d'exploitation.
 
Tu peus mettre Latin_1.asci.cr peut-être à la place.

D'accord merci

De rien !