Discussion :

[Invité]

Bonjour à vous,

Aprés 2 jours de galère je me décide enfin à venir vous demander un coup de main.

Mon problème est simple, j'ai créé avec jewl une petite interface graphique contenant une editbox.
Je voudrais tout simplement stocker le contenu de ce champs dans une variable de type chaine de caractère, mais tous mes essais n'ont pas été concluants.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
PROCEDURE test_string IS
  main: frame_type := frame(230, 300, "Base X à Y", 'Q');
  value : editbox_type := editbox(main, (15,50), 180, 20, "0");
 
  -- Déclaration des variables pr le stockage de la chaine de caractère
  s : xxxxxxxxxx;
 
BEGIN
  ....
  s:= get_text(value);
 
END;

Je pense que c'est un problème classique ( que j'ai déjà eu du mal à résoudre en mode fenêtre ), mais là je dois m'avouer vaincu.

Merci de votre aide

[PRomu@ld]

En fait, le problème vient du fait que une variable de type string doit avoir une taille avant d'être utilisé.

Une idée, c'est de récupérer la taille puis de créer un bloc declare dans lequel tu crées ta chaîne tout en récupérant le contenu.

En gros :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
... 
n := Get_Length( value );
 
Declare
  s : String(1..n);
Begin
s := Get_Text( value );
...

Tu as aussi plus simple :

Code :

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

1
2
3
4
5
6
7
 
...
-- Ici, tu sais à quel endroit tu dois récupérer la chaîne:
Declare 
 s : String := Get_Text( value );
Begin 
...

Dernière solution (il doit y en avoir d'autres), passer par le package Ada.Strings.Unbounded

[Invité]

Oui j'avais entrevu que le problème venait de la définition en taille de la chaine de caratère, le get_length me parait une bonne solution pour résoudre ce problème ( je teste dans la soirée ).


Par contre si ce n'est pas trop demandé tu pourrais me donner plus d'infos sur les type unbounded, car j'avais essayé avec ce type de variables sans succés. J'aimerais bien approfondir dans cette voie car elle à l'air d'être la plus simple/pratique.

J'ai vu à ce sujet quelques snippets sur le blog de poséidon, mais je n'ai pas réussi à les mettre en place.

[PRomu@ld]

Je n'ai jamais eu à l'utiliser, je ne vais pas être très utile.

http://en.wikibooks.org/wiki/Ada_Pro...ings.Unbounded

[Invité]

En tous cas merci pour le ...

Code :

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

1
2
3
Declare 
 s : String := Get_Text( value );
Begin

... ça fonctionne trés bien !