Delphi:StringList Delimiter默认受空格字符影响，如何解决

stringlist通过Delimiter方法获取切割字符，默认受空格字符影响。

 

var
   sl: TStringList;
   str: string;
   i: Integer;
begin
   str := 'aa,b b,cc,dd';
   sl := TStringList.Create;
   sl.Delimiter := ',';　　　　　　//设置判断特殊字符截取不同内容
   sl.DelimitedText := str;　　　　//将内容赋值给stringlist
   for i := 0 to sl.Count - 1 do
      ShowMessage(sl[i]);　　
   FreeAndNil(sl);
end;

输出：结果

aa

b

b

cc

dd

结果输出证明受字符空格影响。我们可以设置：StrictDelimiter := True ;来排除空格

 

var
   sl: TStringList;
   str: string;
   i: Integer;
begin
   str := 'aa,b b,cc,dd';
   sl := TStringList.Create;
   sl.StrictDelimiter := True ;      //排除空格的方式
   sl.Delimiter := ',';　　　　　　//设置判断特殊字符截取不同内容
   sl.DelimitedText := str;　　　　//将内容赋值给stringlist
   for i := 0 to sl.Count - 1 do
      ShowMessage(sl[i]);　　
   FreeAndNil(sl);
end;