Delphi - TStringList DelimitedText空格问题

使用TStringList 的 DelimitedText ，如果被分割字符串中包含空格，被自动分割，这恐怕不是想要的结果，解决办法：用自定义的分割函数！

  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 - 1));
      Delete(Temp, 1, I - 1 + chLength);
      I := Pos(ch, Temp);
    end;
    Result.Add(Temp);
  end;

示例：

tempList := SplitString('被分割的字符串', '分割符号');

 

参考：

https://www.cnblogs.com/coolsundy/p/3833684.html