strings用法

yhwyyan 2009-12-04 06:02:11
北京-菩提子~~<yhwyyan2008@qq.com> 17:55:26
6:0F= 8500,0,0,0,0,0,0, 8500,0,0,0,0,0
6:0J=75000,0,0,0,0,0,0,75000,0,0,0,0,0

7:0F= 8500,0,0,0,0,0,0, 8500,0,0,0,0,0
7:0J= 5000,0,0,0,0,0,0, 5000,0,0,0,0,0

8:0F= 8500,0,0,0,0,0,0, 8500,0,0,0,0,0
8:0J= 1000,0,0,0,0,0,0, 1000,0,0,0,0,0
在tstrings里面
如何将两行的值的相加?如下
6的值等于83500,0,0,0,0,0,0,83500,0,0,0,0,0
7的值等于13500,0,0,0,0,0,0,13500,0,0,0,0,0
8的值等于9500,0,0,0,0,0,0,9500,0,0,0,0,0
...全文
53 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
skertone 2009-12-05
  • 打赏
  • 举报
回复
先把每行 13整数 拆分出来 弄成一个数组

然后再两两数组循环相加就OK了


拆分可以用Pos函数

2,497

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧