Scalabium Software
Knowledge for your independence'.
Home Delphi and C++Builder tips

#132: I want to add leading zeros for numbers

Sometimes you need add the leading zeros to numbers for formatted printing of report forms or data exporting.

For this task I wrote a small function which return a formatted string (see below the AddLeadingZeros function).

But today I found that standard Format function allow to do a same!
Format('%.10d', [15]) will return '0000000015'

Don't ask me why in Delphi help you'll not find the description of this formatted string or why I didn't find it before:-(

Below is my old function:

function AddLeadingZeros(const Source: string; Len: Integer): string;
var
  i: Integer;
begin
  Result := Source;
  for i := 1 to (Len-Length(Source)) do
    Result := '0' + Result;
end;

Published: November 19, 2001

See also

	SMReport
	DBExport tools
	Protected Storage Viewer
	DBLoad
	Excel Reader (dll)
	Fast Document Viewer
	ABA Picture Convert
	Metafile Convert
	ABA Spreadsheet Convert
	DBISAM Viewer


	Contact to webmaster