Devuelve el valor de tipo Bounded_String correspondiente a una ristra de tipo String (parámetro Source). Para utilizarla hay que incluir la librería Ada.Strings.Bounded). El parámetro Drop indica que hacer cuando la ristra a convertir excede el tamaño límite.
function To_Bounded_String (Source : in String; Drop : in Truncation := Error) return Bounded_String;
with Ada.Strings; use Ada.Strings; with Ada.Strings.Bounded; -- Librería de ristras de tamaño limitado ... package Str45 is new Ada.Strings.Bounded.Generic_Bounded_Length(45); use Str45; ... SL: Str45.Bounded_String; ... SL := To_Bounded_String ("Universidad de Las Palmas de Gran Canaria"); -- SL = "Universidad de Las Palmas de Gran Canaria" (longitud 41)
SL := To_Bounded_String ("Universidad de Las Palmas de Gran Canaria y algo más", Drop = Left); -- SL = "idad de Las Palmas de Gran Canaria y algo más" (longitud 45)