字符串分割方法

原创于 2005-01-13 20:36:00 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer

Delphi的使用技巧专栏收录该内容

0 篇文章

订阅专栏

博客给出三种字符串分割方式的代码示例。方式一可使用任意分隔符，借助 tstringlist 实现；方式二同样可使用任意分隔符，通过 StringReplace 函数；方式三只能用逗号分隔，也利用 tstringlist 完成分割。

'分割方式一：（可为任意分隔符）
var
ll:tstringlist;
i:integer;
begin
cmb.Clear;
ll:=tstringlist.Create ;
try
ll.Delimiter :='*';
ll.DelimitedText :='123*456*789';
for i:=0 to ll.Count-1 do
begin
     cmb.Items.Add(ll.Strings[i])
end;
except
   freeandnil(ll);
end;
end;
'分割方式二：（可为任意分隔符）
begin
cmb.Clear;
cmb.Items.Text := StringReplace('1111*222*333', '*', #13#10, [rfReplaceAll, rfIgnoreCase]);
end;
'分割方式三：（只能为“,”分隔符）
var
ll:tstringlist;
i:integer;
begin
cmb.Clear;
ll:=tstringlist.Create ;
try
ll.CommaText:='123,456,789';
for i:=0 to ll.Count-1 do
begin
     cmb.Items.Add(ll.Strings[i])
end;
except
   freeandnil(ll);
end;
end;