Ada – Get String

[Invité galge_programer]

Bonjour, je voudrais savoir si il est possible de faire un Get sur un String sans valeur.

 

Je sais que String est défini par sa longueur et non un caractére de début et de fin.

Je sais aussi que je pourrai faire un get_line, cependant un simple get me serait plus utile et optimiserait mon code.

 

Voici un code que j'ai déjà utilisé mais qui ne se compile pas.

    with ada.text_io ;     use ada.text_io;

Procedure essai is
	      
	Mot : string := ada.text_io.get;
	
Begin
	Put(     "ton mot ? : "); Get(Mot); Skip_line ;
	Put("Ton mot est : "Mot);
end essai ;