Head

Explicación

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

Sintaxis

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

procedure Head (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 := Head ("Universidad de Las Palmas de Gran Canaria", 10);
   --  Fija = "Universida"
Fija := Head ("Casa", 10); --  Fija = "Casa      "
Créditos