consegui este codigo que deberia hacer lo que deseo de la completar con 0 los numero del 1 al 9 ejemplo 01,02,03,04etc
Cita:
function CompletarCodigo(const sCodigo: string; const iDigitos: Integer): string;
begin
Result := StringOfChar('0', iDigitos - Length(sCodigo)) + sCodigo;
end;
|