Consultoría Informática: Programas a medida, Páginas web, Tiendas Online, Posicionamiento en Internet (SEO), Accesibilidad, Usabilidad...

Alinear cadena por la derecha

Autor: José Luis Álvarez

Procedimiento que alinea a la derecha una cadena que se le pasa por parametro (tercer parametro), para ello tambien se le pasa como segundo parámetro la longitud de la cadena a alinear y como primer parámetro se le pasa la longitud maxima que se pretende que ocupe el string.
Para alinear a la derecha se insertarán longi_maxima - (longitud - 1) blancos antes de los caracteres iniciales de la cadena, por tanto, es obvio que la cadena pasada al procedimiento como parámetro formal se ve modificada, por ello nótese que se ha pasado por referencia y no por valor.

PROCEDURE ALINEA_POR_LA_DERECHA(longi_maxima, longitud : INTEGER; VAR s : STRING);
//longi_maxima es la longitud maxima que se desea que tenga la cadena
//longitud es la longitud real de esa cadena
//s es el string q queremos alinear

CONST
blanco=' ';

VAR
i:INTEGER;

BEGIN
   IF longi_maxima <> longitud THEN
      FOR i:=1 TO longi_maxima-longitud DO INSERT(blanco,s,i);
END; { FIN ALINEA_POR_LA_DERECHA }

NOTA: Tengase en cuenta que longi_maxima - longitud debe ser mayor o igual que 1