5,388
社区成员
发帖
与我相关
我的任务
分享关于字符串问题：
我通过ini读取一段字符串如 "+,-,*,/,%"
请问在delphi 中如何分离，类似与 vb 中的 split 函数功能，返回一个数组储存每个字符。。谢谢。
请问在delphi 中如何分离，类似与 vb 中的 split 函数功能，返回一个数组储存每个字符。。谢谢。
...全文
请发表友善的回复…
发表回复
jie115 2003-11-13
- 打赏
- 举报
谢谢
yang_113 2003-11-12
- 打赏
- 举报
更方便的请试试下面的代码
procedure do;
var
i : integer ;
aa : TStringList ;
begin
aa := TStringList.Create ;
aa.DelimitedText := '123,456,789';
aa.Delimiter := ',';
for i := 0 to aa.count - 1 do
showmessage(aa[i]);
// do what you want to do ...
aa.free;
end;
procedure do;
var
i : integer ;
aa : TStringList ;
begin
aa := TStringList.Create ;
aa.DelimitedText := '123,456,789';
aa.Delimiter := ',';
for i := 0 to aa.count - 1 do
showmessage(aa[i]);
// do what you want to do ...
aa.free;
end;
aiirii 2003-11-12
- 打赏
- 举报
類似如下吧:
var I: integer;
s, s1, s2: string;
begin
s := '218.67.66.88';
i := pos('.', s);
s1 := Copy(s, 1, i-1);
showMessage(s1);
delete(s, 1, i);
i := pos('.', s);
s2 := Copy(s, 1, i-1);
showMessage(s2);
delete(s, 1, i);
...
var I: integer;
s, s1, s2: string;
begin
s := '218.67.66.88';
i := pos('.', s);
s1 := Copy(s, 1, i-1);
showMessage(s1);
delete(s, 1, i);
i := pos('.', s);
s2 := Copy(s, 1, i-1);
showMessage(s2);
delete(s, 1, i);
...
yxl2000 2003-11-12
- 打赏
- 举报
可以用pos函数定位，
da_yu 2003-11-12
- 打赏
- 举报
对任一字符串，可以用pos函数定位，用copy函数提取。你看看帮助，很详细的。
