Trim elimina caracteres de los extremos de Source. Para utilizarlos hay que incluir la librería Ada.Strings.Fixed.
function Trim (Source : in String; Side : in Trim_End) return String; procedure Trim (Source : in out Ristra; Side : in Trim_End; Justify : in Alignment := Left; Pad : in Character := Space);
function Trim (Source : in String; Left : in Maps.Character_Set; Right : in Maps.Character_Set) return String; procedure Trim (Source : in out String; Left : in Maps.Character_Set; Right : in Maps.Character_Set; Justify : in Alignment := Strings.Left; Pad : in Character := Space);
with Ada.Strings; use Ada.Strings with Ada.Strings.Fixed; use Ada.Strings.Fixed; -- En Strings.Maps se encuentra la función To_Set() with Ada.Strings.Maps; use Ada.Strings.Maps; ... Fija : String (1 .. 10); ...
Fija := " pedro "; Trim (Fija, Both, pad => 'X'); -- Fija = "pedroXXXXX"
Fija := " pedro "; Fija := Trim (Fija, Both); -- Fija = "pedro "