Trim elimina caracteres de los extremos de Source. Para utilizarlos hay que incluir las librerías que correspondan según el tipo de ristra (Ada.Strings.Bounded, Ada.Strings.Unbounded).
En lo que sigue, el tipo Ristra representa uno de los dos tipos de ristras (Bounded_String o Unbounded_String), según corresponda.
function Trim (Source : in Ristra; Side : in Trim_End) return Ristra; procedure Trim (Source : in out Ristra; Side : in Trim_End);
function Trim (Source : in Ristra; Left : in Maps.Character_Set; Right : in Maps.Character_Set) return Ristra; procedure Trim (Source : in out Ristra; Left : in Maps.Character_Set; Right : in Maps.Character_Set);
with Ada.Strings; use Ada.Strings with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; -- En Strings.Maps se encuentra la función To_Set() with Ada.Strings.Maps; use Ada.Strings.Maps; ... Din1 : Unbounded_String; ... Din1 := To_Unbounded_String (" pedro "); Din1 := Trim (Din1, Left); -- Din1 = "pedro "
Din1 := To_Unbounded_String (" pedro "); Trim (Din1, Both); -- Din1 = "pedro"
Din1 := To_Unbounded_String ("agua"); Din1 := Trim (Din1, To_Set("aeiou"), To_Set("aeiou")); -- Din1 = "g"