delphi下一个简单的字符拆分,很好用的函数,自己写得,分享一下