DELPHI的split函数

最新推荐文章于 2024-08-07 19:10:01 发布

yeagen

最新推荐文章于 2024-08-07 19:10:01 发布

阅读量1.8k

点赞数

CC 4.0 BY-SA版权

分类专栏：技术类文章标签： delphi delete string

本文链接：https://blog.youkuaiyun.com/yeagen/article/details/360123

技术类专栏收录该内容

30 篇文章

订阅专栏

博客展示了Delphi中实现字符串分割的代码。定义了split函数，通过循环和Pos、Copy、Delete等函数将字符串按指定分隔符分割，最后将分割结果存储在TStringList中，并在按钮点击事件中调用该函数进行测试。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TForm1.Button1Click(Sender: TObject);
var
s1:TStringList;
begin
s1:=split('11111111:2222:33333:44444',':');
Memo1.Lines.AddStrings(s1);
s1.Free;
end;function split(s,s1:string):TStringList;
begin
Result:=TStringList.Create;
while Pos(s1,s)>0 do
begin
Result.Add(Copy(s,1,Pos(s1,s)-1));
Delete(s,1,Pos(s1,s));
end;
Result.Add(s);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s1:TStringList;
begin
s1:=split('11111111:2222:33333:44444',':');
Memo1.Lines.AddStrings(s1);
s1.Free;
end;