Función realizada en Delphi a la cual se le pasa una cadena de texto o número con una longitud (tamaño) variable, se le pasa también el tamaño resultante de la cadena, el valor que se utilizará para rellanarla (en caso necesario) y el tamaño en el que queremos que quede.

Por ejemplo, si llamamos a la función con los siguientes parámetros:

cadLongitudFija ('305,25', 10, true, '0')

devolverá:

0000305,25

si la ejecutamos de esta otra forma:

cadLongitudFija ('AjpdSoft', 15, false, 'X')

devolverá:

AjpdSoftXXXXXXX

function cadLongitudFija (cadena : string; longitud : Integer;
    posicionIzquierda : boolean; valorRelleno : string) : string;
var
  i: integer;
begin
  if length(cadena) > longitud then
    cadena := copy(cadena, 1, longitud)
  else
  begin
    for i := 1 to longitud - Length(cadena) do
      if posicionIzquierda then
        cadena := valorRelleno + cadena
      else
        cadena := cadena + valorRelleno;
  end;
  Result := cadena;
end;

  cadena := cadena + '|';
  cadena := cadena + cadLongitudFija (tcCodigoUsuario.AsString,  8,  true, '0');
  cadena := cadena + '|';

Publicado el: 2008-03-31