BARDIN Marc wrote:

 with Text_Io; use Text_Io;
 procedure Test_Tri_Fichier is
 
    Max_Descripteur : Positive;
    subtype Ch_L_Cha�ne is String (1..Max_Descripteur);
    Fin_Sc : Positive range Ch_L_Cha�ne'range;
    package Ent_Es is new Text_Io.Integer_Io (Integer);
 
 begin
    Max_Descripteur := 5;
    Put (" Length : "); Ent_Es.Put (Ch_L_Cha�ne'Length, 5);
    Fin_Sc := Ch_L_Cha�ne'Last;
    Put (" Fin_Sc : "); Ent_Es.Put (Fin_Sc, 5);
 end Test_Tri_Fichier;


No, sorry, you can't do this in Ada in this way. More than likely
the better solution is to use Unbounded_Strings, found in package
Ada.Strings.Unbounded (for some strange reason, this wonderfully
useful type never seems to be mentioned in introductory text books,
despite the amazing simplicity it brings to the "string" model, esp.
for beginning students).



Dale