How to add leading zeroes to a number (Delphi Format)

How to add leading zeroes to a number (Delphi Format)

Here's how convert (an integer) number to a string by adding an amount of leading zeroes.

Suppose you is developing a database application, and you need to operate on, let's say, a customer number, where each nu Mber needs to being exactly digits "long"-but you have the customer numbers of 2,4,7, etc. (<10) digits.

The addleadingzeroes function accepts and Parameters:anumber is the number of the needs to the exactly Length characters (if less, add leading zeroes).

function Addleadingzeroes (conststring; begin    Result:= Sysutils.format ('%.*d', [Length, Anumber]); End;

Usage:

Addleadingzeroes (2005);

Would result in a ' 0000002005 ' string value.

How to add leading zeroes to a number (Delphi Format)