用delphi模仿.net的string.split
工作中偶尔会用到delphi,由于不是很熟,这次写了一个函数模仿。net中的string.split,怕以后忘记,在这保留一份。
function Split(str, split: WideString): TStringList;
var
index, p, sp_len: Integer;
begin
sp_len := Length(split);
Result := TStringList.Create;
p := 1;
for index := 1 to Length(str) do
if copy(str, index, sp_len) = split then
begin
Result.Add(copy(str, p, index - p));
p := index + sp_len;
end;
Result.Add(copy(str, p, index - p));
end ;
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步