function fnMakeNumStr( iNumber, iLen : Integer) : String;
var // 3 => '0003'
i, iDigit : Integer;
begin
iDigit := 10;
if iLen >= 2 then
for i:=2 to iLen do
iDigit := iDigit * 10;
Result := '';
for i:=1 to iLen do
begin
iNumber := iNumber mod iDigit;
iDigit := iDigit div 10;
Result := Result + IntToStr( iNumber div iDigit );
end;
end;
FormatFloat('0000#',StrToInt(6)));
이