字符操作问题

Question

各位好:
 
  问题是这样子的:单据中的流水号是字符型，格式：0000001　累加１，现在加到0000012了，想要把任一的流水号加或减１后再变成新的字符型流水号，该如何做？

Answer 1

function GetSerialNo(sNow: String;  iAdj: Integer;  iLen: Integer = 7): String;
//入口参数:
//  sNow - 当前的序列号
//  iAdj - 增加或减少的值
//  iLen - 序列号长度(默认为7)
begin
  Result := Format(Format('%%0.%dd', [iLen]), [StrToIntDef(sNow, 0) + iAdj]);
end;//调用的例子:
  ShowMessage (GetSerialNo('0000001', 1));
  ShowMessage (GetSerialNo('0000012', -1));
  ShowMessage (GetSerialNo('0000012', -3, 4));