Delphi中优秀的字符串分割函数

DELPHI没有自己的字符串分割函数 function SplitString(Source, Deli: string ): TStringList;stdcall; var EndOfCurrentString: byte; StringList:TStringList; begin StringList:=TStringList.Create; while Pos(Deli, Source)>0 do begin EndOfCurrentString := Pos(Deli, Source); StringList.add(Copy(Source, 1, EndOfCurrentString - 1)); Source := Copy(Source, EndOfCurrentString + length(Deli), length(Source) - EndOfCurrentString); end; Result := StringList; StringList.Add(source); end; 本文引用通告地址： http://blog.csdn.net/mahuzi/services/trackbacks/502563.aspx (e129)