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

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