Trim

Explicación

Trim elimina caracteres de los extremos de Source. Para utilizarlos hay que incluir la librería Ada.Strings.Fixed.

Sintaxis

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);

Ejemplo

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     "
Créditos