delphi替换字符串中的单引号
stringreplace(str_tmp,'''','''''',[rfReplaceAll]);