Delphi根据字符分割字串成数组

发现经常需要这个函数，每次都要翻找以前的工程文件，遂发上来方便以后索引。

function Split(const Source,Delimiter:String):SArray;
var
  iCount,iPos,iLength: Integer;
  sTemp: String;
  aSplit:SArray;
begin
  sTemp := Source;
  iCount := 0;
  iLength := Length(Delimiter) - 1;
  repeat
    iPos := Pos(Delimiter, sTemp);
    if iPos = 0 then Break
    else
    begin
      Inc(iCount);
      SetLength(aSplit, iCount);
      aSplit[iCount - 1] := Copy(sTemp, 1, iPos - 1);
      Delete(sTemp, 1, iPos + iLength);
    end;
  until False;
  if Length(sTemp) > 0 then
  begin
    Inc(iCount);
    SetLength(aSplit, iCount);
    aSplit[iCount - 1] := sTemp;
  end;
  Result := aSplit;
end;

type
  SArray = array of string;

分割类似

str:= 'hello|world';   

arrList := Split(str,'|');

然后 arrList[0] = hello arrList[1] = world