| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 未知:1 斑竹: | |||||
| 作者： |
|
2003/6/9 14:36:39 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 123,234,456,789,这样的字符我怎么将他们分成 123 234 456 789 列在listview中啊？请帮忙看看？ ---------------------------------------------- |
|||||
| 作者： |
|
2003/6/9 14:56:46 | ||||
| 1楼： | var i,l:integer; shu:array[0..100] of integer; begin i:=1; l:=1; shu[l]:=copy(s,i,3); inc(i,3); inc(l); end; 这样就将他他出来了，并保存在数组中。 ---------------------------------------------- 我的联系方式：QQ:371727146MSN:boylqy23@hotmail.com |
|||||
| 作者： |
|
2003/6/9 15:27:17 | ||||
| 3楼： | 我上面写的完全能够达到要求呀，不是定义了个3吗？就是三位一取的。你试一试。 ---------------------------------------------- 我的联系方式：QQ:371727146MSN:boylqy23@hotmail.com |
|||||
| 作者： |
|
2003/6/9 16:20:17 | ||||
| 6楼： | 那简单呀，将数组定义成string不就行了。 ---------------------------------------------- 我的联系方式：QQ:371727146MSN:boylqy23@hotmail.com |
|||||
| 作者： |
|
2003/6/9 16:42:21 | ||||
| 7楼： | 照着你说的，我给你写出来了，在窗体上放了一个Edit控件，用来输入数字。 一个ListBox控件，用来存放分解出来的数，数组就不要了。 procedure TForm1.Button1Click(Sender: TObject); var i,k:integer; shu: String; s:string; begin ListBox1.Items.Clear; i:=1; s:=Trim(Edit1.Text); for k:=0 to (Length(s) div 3) do begin if k=(length(s) div 3) then shu:=copy(s,i,(length(s) mod 3)) else shu:=copy(s,i,3); ListBox1.items.add(shu); inc(i,3); end; end; ---------------------------------------------- 我的联系方式：QQ:371727146MSN:boylqy23@hotmail.com |
|||||
| 作者： |
|
2003/6/9 16:44:25 | ||||
| 8楼： | 你写的达不到你目的，不信你试试。我写的那一段我简单试了一下，应该还能达到要求。 ---------------------------------------------- 我的联系方式：QQ:371727146MSN:boylqy23@hotmail.com |
|||||
| 作者： |
|
2003/6/9 17:31:21 | ||||
| 11楼： | 用字符查找的函数定位','再把它分开 ---------------------------------------------- 链接：https://pan.baidu.com/s/12jzmECYKhGCsHBxz8tmB6w 提取码：pelr --来自百度网盘超级会员V9的分享 |
|||||
| 作者： |
|
2003/6/9 17:43:44 | ||||
| 10楼： | 理解错误，试一试下面的代码。 procedure TForm1.Button1Click(Sender: TObject); var i,k:integer; str,s: String; begin ListBox1.Items.Clear; s:=Trim(Edit1.Text); while pos(',',s)<>0 do begin k:=Pos(',',s); str:=Copy(s,1,k-1); s:=Copy(s,k+1,Length(s)); ListBox1.Items.add(Str); end; ListBox1.Items.Add(s); end; end. ---------------------------------------------- 我的联系方式：QQ:371727146MSN:boylqy23@hotmail.com |
|||||
| 作者： |
|
2003/6/9 17:45:25 | ||||
| 13楼： | 这下行了吧。呵呵。。。 ---------------------------------------------- 我的联系方式：QQ:371727146MSN:boylqy23@hotmail.com |
|||||
| 作者： |
|
2003/6/9 17:47:56 | ||||
| 14楼： | 有问题加我QQ或MSN，现在在线。 ---------------------------------------------- 我的联系方式：QQ:371727146MSN:boylqy23@hotmail.com |
|||||
| 作者： |
|
2003/6/9 18:04:15 | ||||
| 16楼： | 不好意思了，QQ忘开了。 ---------------------------------------------- 我的联系方式：QQ:371727146MSN:boylqy23@hotmail.com |
|||||
| 信息 |
| 登陆以后才能回复 |
