Move

Librería

Ada.Strings.Fixed

Sintaxis

procedure Move (Source  : in String;
                Target  : out String;
                Drop    : in Truncation := Error;
                Justify : in Alignment  := Left;
                Pad     : in Character  := Space);                

Los tipos Truncation y Alignment están definidos en el paquete Ada.Strings.

 

Explicación

Copia la ristra representada por Source en la representada por Target. Si Source tiene menor longitud que Target, los caracteres que falten se rellenan con el valor indicado por Pad de la forma indicada por Justify:

Si Source tiene mayor longitud que Target, se actúa según el valor de Drop:

Ejemplo

with Ada.Strings; use Ada.Strings;
with Ada.Strings.Fixed; use Ada.Strings.Fixed;
...
S : String (1 .. 7);
...
Move ("0123456", S);                            --  S = "0123456"
Move ("012", S);                                --  S = "012    "
Move ("012", S, Pad => 'X');                    --  S = "012XXXX"
Move ("012", S, Justify => Right)               --  S = "    012"
Move ("012", S, Justify => Right, Pad => 'X')   --  S = "XXXX012"
Move ("012", S, Justify => Center, Pad => 'X')  --  S = "XX012XX"
Move ("0123", S, Justify => Center, Pad => 'X') --  S = "X0123XX"
Move ("0123456789", S, Drop => Left);           --  S = "3456789"
Move ("0123456789", S, Drop => Right);          --  S = "0123456"
Move ("012345XXXX", S, Drop => Right, Pad => X);--  S = "012345X"
Move ("0123456789", S);                         --  Length_Error
Créditos