Head

Explicación

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

Sintaxis

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

procedure Head (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 := Head (Din1, 10); --  Din1 = "Universida"
Din1 := To_Bounded_String ("Casa");
Din1 := Head (Din1, 10); --  Din1 = "Casa      "
Créditos