一个使用特殊符号分割的字符串解码方法（Delphi版）

function DecodeString(Str, deStr:  string  ): TStringList;
var
    StringList:TStringList;
begin
    StringList: = TStringList.Create;
    stringList.Text : =  StringReplace(Str, deStr,# 13 , [rfReplaceAll]);
    result : =  stringList;
end;