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.

[olbeup]

Otra forma de hacerlo es

Código Delphi [-]
FormatFloat('00000000', 250);

El resultado es 00000250

También te puedes crear una función:

Código Delphi [-]
function GetIntToStrZero(Value: Integer): String;
begin
  Result := FormatFloat('00000000', Value);
end;

Ejemplo:

Código Delphi [-]
...
var
 X: String;
begin
  X := GetIntToStrZero(250);
end;

Un saludo.