字符串分割方法

最新推荐文章于 2022-04-14 22:21:01 发布

myhgyp

最新推荐文章于 2022-04-14 22:21:01 发布

阅读量1.1k

点赞数

分类专栏： Delphi的使用技巧文章标签： integer

本文链接：https://blog.csdn.net/myhgyp/article/details/252318

版权

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

0 篇文章 0 订阅

订阅专栏

'分割方式一：（可为任意分隔符）
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;