Head

Explicación

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

Sintaxis

function Head (Source : in Bounded_String;
               Count  : in Natural;
               Pad    : in Character := Space;
               Drop   : in Truncation := Error)
  return Bounded_String;

procedure Head (Source  : in out Bounded_String;
                Count   : in Natural;
                Justify : in Alignment := Left;
                Pad     : in Character := Space;
                Drop    : in Truncation := Error);

Ejemplo

with Ada.Strings;           use Ada.Strings
with Ada.Strings.Bounded;   --  Librería de ristras de tamaño limitado
...
package Str100 is new Ada.Strings.Bounded.Generic_Bounded_Length(100); use Str100;  
...
SL: Str100.Bounded_String;
...

SL := To_Bounded_String ("Universidad de Las Palmas de Gran Canaria");
SL := Head (SL, 10); --  SL = "Universida"
SL := To_Bounded_String ("Casa");
SL := Head (SL, 10); --  SL = "Casa      "
Créditos