delphi的Split函数 3个版本

一、直接使用如下函数(注：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