Delphi 分割字元 (類似 Split) 功能函數

Delphi 分割字元 (類似 Split) 功能函數
=====================================================
ExtractStrings
=====================================================
剛開始沒找到這個函數，所以自己寫一個來用，
但無意中又發現這個函式數，覺得也不錯用；
以下介紹用法：


Unit Classes

// Delphi syntax:
  function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;

// 範例：
procedure TForm1.Button1Click(Sender: TObject);
var
  s: PChar;
  i: Integer;
  _sl: TStringList; 
begin
  s:= '123| 456 | .. ABC ..  | !! DEF !!| ## GHI ## | " 哈囉！ "';
  _sl:= TStringList.Create; 
  try
    i:= ExtractStrings(['|'], [' ', '.', '!', '#', '"'], s, _sl);
    Memo1.Lines.Text:= _sl.Text;
  finally
    _sl.Free;
  end;
end;

// Result:
123
456 
ABC ..  
DEF !!
GHI ## 
哈囉！ "