delphi 字符串分割
时间: 2023-09-14 18:06:49 浏览: 98
在Delphi中,可以使用TStringList来实现字符串的分割功能。TStringList类的默认分割符为逗号、空格和回车,也可以指定单个字符作为分隔符。不过需要注意的是,待分割的字符串中不能包含逗号、空格和回车。另外,也可以自定义一个函数来实现字符串的分割。下面是一个自定义的函数示例,可以指定分隔符为单个字符或多个字符,并返回一个TStringList对象,用于存储分割后的子字符串:
```Delphi
function 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 + Length(Delimiter) - 1);
iPos := Pos(Delimiter, tempStr);
end;
strList.Add(tempStr);
Result := strList;
end;
```
这个函数使用了一个临时字符串tempStr和一个用于存储分割后子字符串的TStringList对象strList。通过循环和Pos函数找到分隔符的位置,然后使用Copy函数获取子字符串,添加到strList中,并通过Delete函数删除已经提取的子字符串。最后将tempStr中剩余的内容添加到strList中,并返回strList作为函数的结果。使用该函数可以轻松实现字符串的分割需求。<span class="em">1</span>