Index_Non_Blank devuelve la posición de la primera aparición de un carácter distinto de espacio dentro de Source a partir de la posición From, en el sentido de búsqueda indicado por Going (ver Ada.Strings). Si se omite From, la búsqueda empieza en Source'First o Source'Last, según Going valga Forward o Backward. Para utilizarla hay que incluir la librería que correspondan según el tipo de ristra (Ada.Strings.Fixed, Ada.Strings.Bounded, Ada.Strings.Unbounded).
En lo que sigue, el tipo Ristra representa uno de los tres tipos de ristras, según corresponda (tamaño fijo, tamaño limitado y tamaño dinámico).
function Index_Non_Blank (Source : in Ristra [From : in Positive;] Going : in Direction := Forward) return Natural;
-- En Ada.Strings están definidas algunas constantes -- como Inside, Outside y Backward. with Ada.Strings; use Ada.Strings with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; ... Din : Unbounded_String; P : Integer; ... Din := To_Unbounded_String ("Universidad de Las Palmas de Gran Canaria "); P := Index_Non_Blank (Din); -- P = 1 P := Index_Non_Blank (Din, 11); -- P = 13 P := Index_Non_Blank (Din, Backward); -- P = 41