delphi字符串分割

function GetLeft(sText, sepStr: string): string;
var
  p: Integer;
begin
  p := Pos(sepStr, sText);
  if p =  then Exit('');

  Result := Copy(sText, , p - );
end;

function GetRight(sText, sepStr: string): string;
var
  p: Integer;
begin
  p := Pos(sepStr, sText);
  if p =  then Exit('');

  Result := Copy(sText, p + Length(sepStr), Length(sText));
end;

function SplitString(sText, sepStr: string): TStringList;
var
  p: Integer;
  str: string;
begin
  Result := TStringList.Create;
  p := Pos(sepStr, sText);

  while p >  do
  begin
    str := Copy(sText, , p - );
    Result.Add(str);
    Delete(sText, , p + Length(sepStr) - );
    p := Pos(sepStr, sText);

    if (p = ) and (Length(sText) > ) then
      Result.Add(sText);
  end;
end;