delphi 自带的字符串分割函数

以前一直是自已写函数处理，没想到Delphi有一个自带的。

ExtractStrings：用指定的分割符分割一个字符串为多个子字符串

给你一个例子

var

S: string;

SL: TStringList;

begin

S := '123,456,789 ';

SL := TStringList.Create;

ExtractStrings([ ', '], [], PChar(S), SL);

ShowMessage(SL.Text);

SL.Free;

end;