Rellenar con ceros (0)

[[Al González]]

Empezado por maeyanes

Otra forma de lograr esto es la función Format:

Código Delphi [-]
function FormatNumber(Number, StrLen: Integer): string;
begin
  Result := Format(Format('%%.%dd', [StrLen]), [Number])
end;

Encontré el tema por casualidad y me pareció curiosa la anterior solución, ya que puede conseguirse el mismo resultado con una sola llamada a Format:

Código Delphi [-]
S := Format ('%.*d', [10, 123]);  // S = '0000000123'

Más que nada lo pongo para que se conozca esta alternativa. Habiendo pasado cinco años, seguro que maeyanes ya lo ha de saber.

Saludos.