Funcion de relleno
Mira yo he hecho esta funcion, quizás te sirva, es recursiva:
function rellenar(campo:string;con:char;longitud:byte):string;
begin
if longitud>length(campo) then
begin
campo:=concat(con,campo);
rellenar:=rellenar(campo,con,longitud)
end
else rellenar:=campo;
end;
Explicacion:
Campo: es la cadena a la que quieres añadir los ceros
Con: Con lo que quieres rellenar, en tu caso con '0' pero puedes poner lo que quieras
longitud: La longitud total de la cadena resultante.
Vamos que si quiero que la cadena sea de 10 caracteres rellenando con ceros y tengo esta: '123' la función sería:
rellenar('123','0',10)
y te devolvería: 0000000123
|