rellenar una cadena con 0's??????

[charly]

Hola,
Yo he creado la siguiente función para mis desarrollos.

function StrFill(cadena:string;longitud:Integer;relleno,posicion:string) : string;
var cTemp:string;
n, nVeces:Integer;
begin
cTemp := cadena;
nVeces := longitud - length(cTemp);
for n := 1 to nVeces do
begin
if ((posicion = 'D') or (posicion = 'd')) then
cTemp := cTemp+relleno
else
cTemp := relleno+cTemp;
end;
Result := cTemp;
end;

Parametros :
cadena = cadena inicial a tratar
longitud = longitud final de la cadena
relleno = caracter de relleno
posicion = si (D ó d) rellena por la derecha, sino por la izquierda de la cadena pasada en CADENA.

Espero te sirva.
Un saludo.