一个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;
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;
在网上找的,挺好用,加了注释与大家一起分享~~~~