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

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