Delphi中是否也有split函数？或者相同功能的函数？

Question

在微软的vb里有split函数，用来将一个用逗号或者其他特殊符号间隔开数据的字符串分割开，然后将数据保存到一个数组中，不知道delphi中时候也有？如果没有的话，是不是只能自己写了？

Answer 1

找出分隔符號的個數加1,再setlength一個動態數組...

Answer 2

//参考如下代码～～
procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  with TStringList.Create do try
    Delimiter := ',';
    DelimitedText := '0,1,2,3,4,5,6,7,8,9';
    for I := 0 to Count - 1 do ShowMessage(Strings[I]);
  finally
    Free;
  end;
end;