SRL Archive - SRL Archives

ZeroDigits() will add 0's for digits not filled up by the Number.

Ex. ZeroDigits(5000, 6); // 6 digits, number is 5000
that will result in 005000

Function code:

// ZeroDigits() will add 0's for digits not filled up by the Number.
// Made by Ron :)
function ZeroDigits(Number, Digits : Integer) : String;
var
  Str : String;
begin
  Str := IntToStr(Number);
  while (Length(Str) < Digits) do
  begin
    insert('0',Str,1);
  end;
  Result := Str;
end;

Test function:

program New;

var
  i : integer;

// ZeroDigits() will add 0's for digits not filled up by the Number.
// Made by Ron :)
function ZeroDigits(Number, Digits : Integer) : String;
var
  Str : String;
begin
  Str := IntToStr(Number);
  while (Length(Str) < Digits) do
  begin
    insert('0',Str,1);
  end;
  Result := Str;
end;

begin
  ClearDebug;
  for i := 0 to 1000 do
  begin
    WriteLn(ZeroDigits(i, 4));
  end;
end.

~Ron