本文整理自网络，侵删。
delphi的Split函数 4个版本
一、直接使用如下函数(注：ch只能是单字符，如键盘上英文状态下的字符）
function SplitString(const Source,ch:String):TStringList;
var
temp:String;
i:Integer;
begin
Result:=TStringList.Create;
//如果是空自符串则返回空列表
if Source=''
then exit;
temp:=Source;
i:=pos(ch,Source);
while i<>0 do
begin
Result.add(copy(temp,0,i-1));
Delete(temp,1,i);
i:=pos(ch,temp);
end;
Result.add(temp);
end;
二、直接使用TStringList
procedure TForm1.Button3Click(Sender: TObject);
var
Str:String;
ResultList:TStringList;
I:Integer;
begin
str:= '南京~信息~工程~大学';
ResultList := TStringList.Create;
try
ResultList.Delimiter := '~';
ResultList.DelimitedText := str;
for I:= 0 to ResultList.Count-1 do
begin
Memo1.Lines.Add(ResultList.Strings[I]);
end;
finally
FreeAndNil(ResultList);
end;
end;
三、支持特殊字符版（ch可以为字符串，如'aa')
function SplitString(const Source,ch:String):TStringList;
var
Temp:String;
I:Integer;
chLength:Integer;
begin
Result:=TStringList.Create;
//如果是空自符串则返回空列表
if Source='' then Exit;
Temp:=Source;
I:=Pos(ch,Source);
chLength := Length(ch);
while I<>0 do
begin
Result.Add(Copy(Temp,0,I-chLength+1));
Delete(Temp,1,I-1 + chLength);
I:=pos(ch,Temp);
end;
Result.add(Temp);
end;
四、算是改进版 支持 如：===== 或 ----
function SplitStr(const Source, Splitter: String):TStringList;
var
temp: String;
i: Integer;
begin
Result := TStringList.Create;
//如果是空自符串则返回空列表
if Source='' then
Exit;
temp := Source;
i := pos(Splitter, Source);
while i <> 0 do
begin
Result.add(copy(temp, 0, i-1));
Delete(temp, 1, i - 1 + Length(Splitter));
i:=pos(Splitter, temp);
end;
Result.add(temp);
end;
相关阅读 >>
Delphi xe andriod 文件后缀对应mime类型
解决 Delphi 程序在不同操作系统中 shellexecute 调用 chrome.exe 偶尔无效的问题
更多相关阅读请进入《Delphi》频道 >>
