function DecodeString(Str, deStr: string ): TStringList;
var
StringList:TStringList;
begin
StringList:=TStringList.Create;
stringList.Text := StringReplace(Str, deStr,#13, [rfReplaceAll]);
result := stringList;
end;
var
StringList:TStringList;
begin
StringList:=TStringList.Create;
stringList.Text := StringReplace(Str, deStr,#13, [rfReplaceAll]);
result := stringList;
end;
鼻子修改得很快呀,错误修改好了:)