Contact: aviboots(AT)netvision.net.il
43,903 questions
57,300 answers
573 users
program ZeroPaddedNumber; uses SysUtils; // Format var number: Integer; begin number := 319; // Format with leading zeros to 6 digits WriteLn(Format('%.*d', [6, number])); end. (* run: 000319 *)