DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: webb123
今日帖子: 3
在线用户: 2
导航: 论坛 -> 数据库专区 斑竹:liumazi,waterstone  
作者:
男 lantu (十步一杀) ★☆☆☆☆ -
盒子活跃会员
2003/10/16 15:11:43
标题:
字符串问题!!!!thanks 浏览:2670
加入我的收藏
楼主: 怎样把一个未知字符串+1

比如把 001 变成 002 ,096--->097
----------------------------------------------
-
作者:
男 skertone (奇奇怪) ★☆☆☆☆ -
盒子活跃会员
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) //三位 

----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行99.60938毫秒 RSS