Discussion :

[solaeris]

Bonjour,

je suis en plein milieu d'un joli programme. Je dois exporter des résultats vers des fichiers.svg. Pour cela, je veux pouvoir créer les fichiers : fichier1.svg, fichier2.svg...

J'aimerais pouvoir insérer une variable de type entier afin de pouvoir afficher le "1" de fichier1.svg, le "2" de fichier2.svg...

J'ai eu beaucoup de mal à comprendre l'utilisation de Ada.Strings.Unbounded_String, qui est, je pense, la solution à mon problème.
Donc mes erreurs sont :

nom : string(1..15);
nom := "fichier" & integer'image(x) & ".svg";
Ce code compile, mais à l'exécution se produit la CONSTAINT ERROR. Je sais que l'on ne peut pas écrire ça comme ça en mettant nom en type String (je ne sais plus la raison d'ailleur).

With Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
nom : Ada.Strings.Unbounded.Unbounded_String;
Nom := "fichier" & integer'image(x) & ".svg";
Là, le compilateur me met les erreurs : "expected private type "Ada.Strings.unbounded.Unbouded_String"" et "found type "Standard.String""

J'aurais besoin de savoir comment utiliser Unbounded afin de pouvoir résoudre mon problème, si c'est bien ça. Ou sinon, trouver une autre manière pour concaténer les 2 chaînes et la variable.

Je vous remercie d'avance pour votre attention et vos éventuelles réponses. Je reste à votre dispositions si vous souhaitez des informations plus complètes

[Invité]

Bonjour,

Dans la bibliothèque Unbounded, il y à une fonction "To_Unbounded_string()" qui prend un String en paramètre.

With Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
nom : Ada.Strings.Unbounded.Unbounded_String;
Nom := To_Unbounded_String("fichier" & integer'image(x) & ".svg");