Tail

Explicación

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

Sintaxis

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

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

Ejemplo

with Ada.Strings;            use Ada.Strings
with Ada.Strings.Unbounded;  use Ada.Strings.Unbounded;
...

Din1 : Unbounded_String;
...

Din1 := To_Bounded_String ("Universidad de Las Palmas de Gran Canaria");
Din1 := Tail (Din1, 10); --  Din1 = "an Canaria"
Din1 := To_Bounded_String ("Casa");
Din1 := Tail (Din1, 10); --  Din1 = "Casa      "
Créditos