分割字符串函數ExtractStrings

//分割字符串ExtractStrings
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;
end;