Ada.Strings.Fixed |
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.
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:
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