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;