La función Unbounded_Slice devuelve el trozo de la ristra Source comprendido entre Low y High. Lanza Index_Error si Low > Length (Source) o High > Length(Source).
function Unbounded_Slice (Source : in Unbounded_String; Low : in Positive; High : in Natural) return Unbounded_String;
procedure Unbounded_Slice (Source : in Unbounded_String; Target : out Unbounded_String; Low : in Positive; High : in Natural);
-- En Ada.Strings están definidas algunas constantes -- como Error, Left y Right. 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; ... SL1, SL2: Str100.Unbounded_String; ... SL1 := To_UnUnbounded_String ("Escuela Universitaria de Informática"); SL2 := Unbounded_Slice(SL1, 9, 19)); -- SL2 = "Universitar"