Delphi 使用 Format格式话字符串的用法

找出以前的代码，写个随笔， 又想起以前的公司和以前的同事来， 希望以前的公司和同事事事顺意。

//返回格式化的字符串

function TfrmLedgerExVoucherLoad.GetFormatMonth(Month: Integer): string;

begin

if Month < 10 then

Result := format('%.2d', [Month])

else

Result := IntToStr(Month);

end;

{-------------------------------------------------------------------------------

过程名: getBackStr

作者: 张志峰

日期: 2010.11.25

参数: jInc: Integer

返回值: string

说明: 得到生成级次码的最后几位 jInc: 生成级次码后几位的数字

-------------------------------------------------------------------------------}

Function getBackStr(jInc: Integer): string; //

begin

Result := '';

if jInc < 10000 then

Result := Format('%.4d', [jInc]);

end;