Delphi字符串分割函数

一个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;

 

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