在Delphi中有和VB中的Split()相似的函数吗？

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  StrList: TStringList;
begin
  StrList := TStringList.Create;
  try
    StrList.QuoteChar := ',';
    StrList.CommaText := 'aaa,bbb,ccc';
    // StrList已经把字符串解析出来：
    // StrList[0] = 'aaa'
    // StrList[1] = 'bbb'
    // StrList[2] = 'ccc'
  finally
    FreeAndNil(StrList);
  end;
end;

Answer 1

dancemaple(枫之舞)
的error
1.QuoteChar不是分割符号，应该是Delimiter
2.CommaText默认是Delimiter为',' ,QuoteChar是'"'。
如有不同应用DelimitedText。
(
  classes.pas 中line 4304
procedure TStrings.SetCommaText(const Value: string);
begin
      Delimiter := ',';
      QuoteChar := '"';
      SetDelimitedText(Value);
end;
)
如：
strList.Delimiter:=';';
strList.DelimitedText := 'delphi;java;C#;C++';