Discussion :

[Gigatrappeur]

Bonjour,
J'aimerais pouvoir insérer dans un tableau de caractère, plusieurs caractères d'un seul coup :

Code :

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

1
2
3
4
5
6
procedure init is
    type tab is array (1..20) of character;
    tab_of_char : tab;
begin
    tab_of_char := {'a','b','c'... }; -- méthode non exacte
end init;

Voilà, si quequ'un sait comment faire, ça m'interesse !

--
Gigatrappeur

[PRomu@ld]

Peut-être qu'en utilisant le type string au lieu d'un tableau, ça résoudra ton problème.

[Gigatrappeur]

En faite, non !
je ne peux utiliser de type string car après je compare ce tableau avec un autre de même type.

De plus le tableau que je veux initialiser est imbriquer dans une structure.

[PRomu@ld]

je ne peux utiliser de type string car après je compare ce tableau avec un autre de même type.

Avec la surcharge d'opérateur, la comparaison doit être possible. Enfin bon ...

J'ai bricolé ceci ça devrait peut-être t'aider :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Test is
 
   type T_Char_Tab is array( Integer range <> ) of Character ;
 
   function Init( S : in String ) return T_Char_Tab is
      T : T_Char_Tab( 1..S'Length );
   begin
      for I in S'Range loop
         T(I) := S(I);
      end loop;
 
      return T;
   end;
 
   procedure Put( T : in T_Char_Tab ) is
   begin
      for I in T'Range loop
         Put( T(I) );
      end loop;
   end;
 
   T : T_Char_Tab( 1..6 );
 
begin
 
   T := Init("coucou");
 
   Put( T );
 
end Test;

Le seul point délicat, c'est qu'il faut absolument que l'initialisation de T (au niveau global) soit de la même taille que ce que tu veux lui donner, sinon tu auras une exception.

Par contre si tu veux l'initialiser directement lors de sa création alors plus de soucis :

Code :

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

T : T_Char_Tab := Init( "coucou" );

[Gigatrappeur]

ouai, super, je n'y avais pas pensé !!!!