Int32 on input should have specified numbers count on output

[DeddyH]

Or something like this:

Delphi-Quellcode:

uses math;

function NumberToDigits(aNumber: integer; Digits: Byte = 5): Cardinal;
var RangeMin, RangeMax: Cardinal;
begin
  if Digits < 1 then
    raise Exception.Create('What number do you expect to get having less than 1 digit?');
  Result := abs(aNumber);
  RangeMin := trunc(Power(10,Pred(Digits)));
  RangeMax := Pred(trunc(Power(10,Digits)));
  while Result > RangeMax do
    Result := Result div 10;
  while Result < RangeMin do
    Result := Result * 10;
end;