Agregar ceros a la izquierda de un consecutivo

[ecfisa]

Hola, otra más para la diversidad...

function CerosAIzquierda(ANum, Cant: Integer): string;
var
  Ceros: array[1..100] of char;
begin
  FillChar(Ceros, SizeOf(Ceros), '0');
  Result:= Copy(Ceros, 1 ,Cant - Length(IntToStr(ANum))) + IntToStr(ANum);
end;

Saludos.

[ecfisa]

Tarde veo, que look conoce esa función que yo nunca recuerdo ...

[look]

Empezado por ecfisa

Tarde veo que look conoce esa funcion que nunca me acuerdo ...

jeje , yo la agregue a mis plantillas del delphi :P

saludos!