Delphi中优秀的字符串分割函数

最新推荐文章于 2021-01-14 07:40:11 发布

原创最新推荐文章于 2021-01-14 07:40:11 发布 · 636 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #string #byte

Delphi 专栏收录该内容

19 篇文章

订阅专栏

本文介绍了一种在DELPHI中实现字符串分割的方法，通过创建一个名为SplitString的函数来完成。该函数接收两个参数，即待分割的源字符串和作为分隔符的字符串。函数使用TStringList来存储分割后的各个子字符串，并利用循环和Pos函数来查找分隔符的位置，从而逐步分割字符串。

DELPHI没有自己的字符串分割函数

function SplitString(Source, Deli: string ): TStringList;stdcall;

var

EndOfCurrentString: byte;

StringList:TStringList;

begin

StringList:=TStringList.Create;

while Pos(Deli, Source)>0 do

begin

EndOfCurrentString := Pos(Deli, Source);

StringList.add(Copy(Source, 1, EndOfCurrentString - 1));

Source := Copy(Source, EndOfCurrentString + length(Deli), length(Source) - EndOfCurrentString);

end;

Result := StringList;

StringList.Add(source);

end;

本文引用通告地址： http://blog.youkuaiyun.com/mahuzi/services/trackbacks/502563.aspx
(e129)