各位好:
问题是这样子的:单据中的流水号是字符型,格式:0000001 累加1,现在加到0000012了,想要把任一的流水号加或减1后再变成新的字符型流水号,该如何做?
问题是这样子的:单据中的流水号是字符型,格式:0000001 累加1,现在加到0000012了,想要把任一的流水号加或减1后再变成新的字符型流水号,该如何做?
解决方案 »
- 高分查错!TMemoryStream对象赋给TStream对象出错!
- 你遇到过没有?怎么修改IIS默认文档?
- 使用MAPISEDMAIL发送邮件,怎么才能不出现OUTLOOK窗口,直接发送?????????????
- 高分求HOOK!怎么能通过HOOK实现全屏窗口化。
- 如何进行数据传输
- winexec的调用98和2000下有区别吗?
- 请问那里有fastReport的frf文件编辑器下载啊?
- 请问delphi updata pack 2中包括 pack 1中的升级吗?是否都需要下载安装?
- 有关DEPHI的
- 权限问题请教
- 如何设置fastreport可以改列的宽度?
- 如何用api函数来打印Timage
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));