根据分隔符将一个长字符串分割保存到动态数组中(第二种方法)

var
s: String;
List: TStringList;
begin
s := 'about: #delphi; #pascal, programming';
List := TStringList.Create;
ExtractStrings([';',',',':'],['#',' '],PChar(s),List);
//第一个参数是分隔符; 第二个参数是开头被忽略的字符

ShowMessage(List.Text);  //about
//delphi
//pascal
//programming
List.Free;