como trabajar con numeros 00000001, 00000022, 00023900

[JXJ]

no sabia que con Format se podia hacer.
Format('%.8d', [23900]);
Gracias Roman y Gracias olbeup

Empezado por olbeup

Define dos variables:

Código Delphi [-]var
nNum: Integer;
cNum: String;



Después:

Código Delphi [-]nNum := StrToInt("El_Codigo");
cNum := FormatFloat('00000000', nNum);



Un saludo.

[ecfisa]

Hola JXJ.

Te agrego otra forma de hacerlo:

Código Delphi [-]
{ Num: número - Cant: cantidad total de dígitos }
function CerosAIzquierda(Num, Cant: integer): string;
begin
  Result:= StringOfChar('0', Cant - Length(IntToStr(num))) + IntToSTr(num);
end;

Un ejemplo de llamada:

Código Delphi [-]
var
  i: Integer;
begin
  Memo1.Clear;
  for i:= 115 to 132 do
    Memo1.Lines.Add(CerosAIzquierda(i, 9));
end;

Saludos.