Discussion :

[Poseidon62]

Bonjour,

Quelqu'un sait-il comment transformer un type Unbounded_String en Integer et vice versa ?

Un peu à la manière des types string et integer

Transformer un string en integer :

Code :

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

1
2
Mon_Entier : Constant Integer := integer'image(string);

Transformer un integer en string :

Code :

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

1
2
3
4
function int_str (x : integer) return string is
begin
     return integer'image(x);
end int_str;

Merci pour vos réponses

[jc-miranda]

Bonjour,

Quelqu'un sait-il comment transformer un type Unbounded_String en Integer et vice versa ?

Code :

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

1
2
3
 
My_Int := Integer'Value(Ada.Strings.Unbounded.To_String(My_Ustring))
My_Ustring := Ada.Strings.Unbounded.To_Unbounded_String(Integer'Image(My_Int));

[Poseidon62]

merci beaucoup pour ta réponse mc..

J'ai pas mal cherché sur le net sans rien trouver de précis à ce sujet.
En cherchant dans les paquetages, j'étais parti sur une voie similaire mais pas la bonne.

Je vais tester

++

[Poseidon62]

j'ai testé - çà marche
J'ai encore un message d'erreur qu'il faut que je résolve, mais je doir approcher de la vérité...

Merci beaucoup jc-miranda

++