//文字列に従って文字列を分割します。これはVBの分割関数に相当します
function splitstring（const source、ch：string）：tstringlist;
var
温度：文字列;
I：整数;
始める
結果：= tstringlist.create;
//空の文字列の場合は、空のリストに戻ります
source = 'の場合
その後、終了します。
温度：=ソース;
i：= pos（ch、source）;
私が<> 0をしながら
始める
result.add（copy（temp、0、i-1））;
削除（Temp、1、i）;
i：= pos（ch、temp）;
終わり;
result.add（temp）;
終わり;
www.sinoprise.com