Delphi字符串分割函数

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

iori13

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

阅读量1.5k

点赞数

分类专栏： Delphi开发文章标签： delphi string byte

Delphi开发专栏收录该内容

27 篇文章

订阅专栏

本文介绍了一个实用的Delphi函数，用于将字符串按照指定的分隔符进行分割，并返回一个字符串列表。该函数通过循环定位分隔符位置，逐个分割字符串并添加到列表中。

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

一个Delpih常用到的分割写符串的函数..

代码如下：

function Tmainfr.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;
    StringList.Add(source);    // 如果不存在分隔符时，直接作为项目添加
    Result: = StringList;        // 设置返回类型
end;

在网上找的，挺好用，加了注释与大家一起分享~~~~