导航:
论坛 -> 数据库专区
斑竹:liumazi,waterstone
作者:
lantu (十步一杀)
★☆☆☆☆
-
盒子活跃会员
2003/10/16 15:11:43
标题:
加入我的收藏
楼主:
怎样把一个未知字符串+1 比如把 001 变成 002 ,096--->097
----------------------------------------------
-
作者:
2003/10/17 9:47:10
1楼:
要不要进位的?
----------------------------------------------
作者:
cjrb (Thinking In 魂)
★☆☆☆☆
-
盒子活跃会员
2003/10/17 12:18:41
2楼:
如果是整数可以这样: try i:=strtoint(s); i:=i+1; s1:=inttostr(i); while length(s1)<length(s) do s1:='0'+s1; except showmessage('非整'); end;
----------------------------------------------
充电..........
作者:
bryan (bao)
★☆☆☆☆
-
盒子活跃会员
2003/10/17 21:56:52
3楼:
这里给个通用函数: Function Inc_NumStr(NumStr:String):String; Var Len:Integer; Begin Len := Length(NumStr); Result := Copy(Inttostr(Trunc(Power(10,Len))+StrtoInt(Numstr)+1),2, Len); End; 如果是定长的字串,可以写的简单点儿: Copy(Inttostr(1000+StrtoInt(Numstr)+1),2,3) //三位
----------------------------------------------
-