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

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;

摘自万一的博客

http://www.cnblogs.com/del/archive/2007/12/11/991479.html