Discussion :

[divinThomas]

Bonjour,

mon problème est le suivant :
je souhaiterai récupérer un T_String_Access sur une variable de type T_String suivant les déclarations suivantes :

Code :

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

1
2
3
 
type T_String is array (Positive range <>) of T_Char;
type T_String_Access is access all T_String;

Merci d'avance pour votre aide !

[Seb_de_lille]

Si j'ai bien compris ton problème, tu as deux solutions

Soit tu modifies ton type de pointeur, et tu peux utiliser l'exemple suivant

Code :

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

1
2
3
4
5
6
7
8
9
 
   type T_String_Access is access all T_String(1..5);
 
   Tt : aliased T_String(1..5) := ('a', 'b','c','d','e');
   Ptr : T_String_Access;
 
...
 
  Ptr := Tt'Access;

Soit tu utilises une allocation dynamique

Code :

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

1
2
3
4
5
6
 
   Ptr : T_String_Access;
 
...
 
   Ptr := new T_String(1..5);

Par contre, je ne pense pas que tu puisses faire un pointeur vers un aliased T_String comme tu l'as déclaré. Dans ce cas là, tu pourras déclarer deux aliased T_String de taille différente, et un même pointeur pourrait naviguer sur les deux.