Como rellenar de caracteres un string

[[BlueSteel]]

prueba con esto, donde numero es una variable numerica

Código Delphi [-]
  FormatFloat('00000#',Numero)

[Assolon]

Puedes probar con esta funcion, creo que te puede venir bien.


vCantidad := '10';
vValor := StringOfChar('0',5-length(vCantidad )) + vCantidad;


Te repite un caracter tanta veces indiques.


saludos......

[Spynosa]

Puedes usar esta funcion,

Código Delphi [-]
function PadL( sOrigen: string; iLen: integer; cPad: char ): string;
var
   sRet  : string;
   iCont : integer;
begin

   sRet := '';
   for iCont := 1 to iLen do
      sRet := sRet + cPad;

   sRet := sRet + sOrigen;

   iCont := ( Length( sRet ) - iLen ) + 1;
   sRet := Copy( sRet, iCont, iLen );

   result := sRet;

end;

para usarla

Código Delphi [-]
cadena:='10';
cadena:=PadL(cadena,5,'0');

[xelip]

hola,
No se realmente lo que necesitas, pero esto puede tambien serviles a todos...

para llenar un string con un mismo caracter:
var s: string;
...
fillchar(s, sizeos(s), 0);// lo rellena con 0.
fillchar(s, sizeof(s), k);// lo rellena con ´k´, porque es un string.
tambien puedes utilizarlo tambien para los arreglos:
var mat:arrar[0..n,0..n] of integer;
...
fillchar(mat, sizeof(mat), numero integer);// lo rellena con el numero integer indicado

[roman]

Hay que tener cuidado con esto. Para empezar el tpo de datos string en Delphi no es sino un puntero por lo que SizeOf(S) siempre será 4. Y por otra parte, si vamos a rellenar caracteres de un string usando FillChar, será mejor hacerlo a partir de S[1] (el primer caracter) por la misma razón de que S no es sino un apuntador.

// Saludos