DELPHI的split函数

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

原创最新推荐文章于 2024-08-07 19:10:01 发布 · 1.9k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

技术类

当前文章被收录于：

技术类

30 篇文章 0 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

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

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;

标签

#delphi #delete #string