Discussion :

[mourbare]

Bonjour chers internautes,

Depuis deux jours je cherche a concatener les strings.

J'ai une boucle qui parcoure une liste de nom et ces noms je veux les concatener :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Variants_List : String := " ";
Variants_List := Variants_List & String_Node_Name & ",";

Ceci me renvoie une erreur "contraints error"
Quand je prends Unbounded_String

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Variants_List : Unbounded_String;
Variants_List := Variants_List & +String_Node_Name & +",";
(+ transforme String en Unbounded_String)

Ici j'ai l'erreur Missing Operand.
Ce que je veux c'est juste avoir une chaine "Nom1, Nom2, Nom3 ..."

Quelqu'un saurait m'aider peut etre.
Merci mille fois.

[nardo47]

Bonjour,

dans le 1° cas, tu as défini Variants_List comme étant égal à " ", et donc Ada considère que Variants_List est une chaîne de 1 caractère. Toute tentative ultérieure de faire rentrer une chaîne plus longue va avoir le même résultat que celui que tu as constaté.

Dans le 2° cas, je ne vois que le fait que tu tentes d'initialiser Variants_List sans l'avoir initialisé.

Ceci marchera peut-être mieux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Variants_List : Unbounded_String := +" ";

Bon courage.

[jc-miranda]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Variants_List : Unbounded_String;
Variants_List := Variants_List & +String_Node_Name & +",";
(+ transforme String en Unbounded_String)

Je ne sais pas d'où sort l'opérateur "+" que tu utilises, mais ici, il ne sert à rien.
Le package Ada.Strings.Unbounded définit les opérateurs de concaténation entre Unbounded_String et String.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
function "&" (Left : in Unbounded_String; Right : in String)
      return Unbounded_String;
function "&" (Left : in String; Right : in Unbounded_String)
      return Unbounded_String;

[mourbare]

Je ne sais pas d'où sort l'opérateur "+" que tu utilises, mais ici, il ne sert à rien.
Le package Ada.Strings.Unbounded définit les opérateurs de concaténation entre Unbounded_String et String.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
function "&" (Left : in Unbounded_String; Right : in String)
      return Unbounded_String;
function "&" (Left : in String; Right : in Unbounded_String)
      return Unbounded_String;

salut,

"+" est juste une fonction qui me transforme string en unbounded_string. Car le nom du noeud est en String.

merci

[jc-miranda]

"+" est juste une fonction qui me transforme string en unbounded_string. Car le nom du noeud est en String.

Hum, ça j'ai bien compris, mais au risque de me répéter, cet appel de "+" ne sert absolument à rien dans ton exemple plus haut et est très probablement la cause de ton problème....

Ada gère déjà la concaténation Unbounded_String/String.
Tu n'as qu'à compiler cet exemple pour t'en convaincre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
with Ada.Text_Io;
 
procedure Toto is
   Node : constant String := "Cool";
   Str  : Ada.Strings.Unbounded.Unbounded_String;
begin
   Str := Str & Node;
   Ada.Text_Io.Put_Line (To_String (Str));
end Toto;

A+

[mourbare]

Hum, ça j'ai bien compris, mais au risque de me répéter, cet appel de "+" ne sert absolument à rien dans ton exemple plus haut et est très probablement la cause de ton problème....

Ada gère déjà la concaténation Unbounded_String/String.
Tu n'as qu'à compiler cet exemple pour t'en convaincre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
with Ada.Text_Io;
 
procedure Toto is
   Node : constant String := "Cool";
   Str  : Ada.Strings.Unbounded.Unbounded_String;
begin
   Str := Str & Node;
   Ada.Text_Io.Put_Line (To_String (Str));
end Toto;

A+

Merci pour les conseils et l'aide.