Completar campo con zeros

[miguel_pxyz]

También puedes usar la función Format

[victor-cm]

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

[[Ohcan]]

Hola (Cuanto tiempo sin postear...)

A mi se me ha ocurrido esta funcion:

Código Delphi [-]
function CompletarCon(TextoACompletar: String; CompletarCon: Char;   LongitudTotal: Integer): String; 
var   
  I:Integer; 
begin   
  if LongitudTotal>Length(TextoACompletar) then     
    for I := 1 to LongitudTotal-Length(TextoACompletar) do         
      TextoACompletar := CompletarCon + TextoACompletar;     
  Result := TextoACompletar; 
end; 
//De tal forma que  
CompletarCon('Hola', '0', 6);  
//Devolvería 00Hola

Saludos