Tail

Explicación

Tail toma un trozo del final de Source. Para utilizarla hay que incluir la librería Ada.Strings.Fixed.

Sintaxis

function Tail (Source : in String;
               Count  : in Natural;
               Pad    : in Character := Space)
  return String;

procedure Tail (Source  : in out String;
                Count   : in Natural;
                Justify : in Alignment := Left;
                Pad     : in Character := Space);

Ejemplo

with Ada.Strings;       use Ada.Strings
with Ada.Strings.Fixed; use Ada.Strings.Fixed;
...

Fija : String (1 .. 10);
...
Fija := Tail ("Universidad de Las Palmas de Gran Canaria", 10);
   --  Fija = "an Canaria"
Fija := Tail ("Casa", 10); --  Fija = "Casa      "
Créditos