//TStringList,默认分割符为逗号、空格、回车,还可以指定单个字符;但是待分解的字符串中不能包含逗号、空格、回车
//indy的库函数和TStringList差不多,也不能包含逗号、空格、回车
//下面这个函数是我自己写的,指定分割符,可以单个字符,也可以是多个字符为分割符号,项目中一直在用,还不错
function TXTCommon.SpliteString(const source: string; Delimiter: string):
TStringList;
var
tempStr, str: string;
strList: TStringList;
iPos: Integer;
begin
tempStr := source;
strList := TStringList.Create;
iPos := Pos(Delimiter, tempStr);
while iPos <> 0 do
begin
str := Copy(tempStr, 1, iPos - 1);
strList.Add(str);
Delete(tempStr, 1, iPos - 1 + Length(Delimiter));
iPos := Pos(Delimiter, tempStr);
end;
strList.Add(tempStr);
Result := strList;
end;
DELPHI 字符串分割处理
最新推荐文章于 2024-08-07 19:10:01 发布