我想检验一个字符串中是否含有单引号，如果有单引号再后面加个单引号，该怎么写？

Question

检验一个字符串中是否含有单引号，如果有则在这个单引号前面/后面加个单引号。
function TMainFrm.Str_Transform(Str:string): Boolean;
begin
 ...//这里该怎么写？用什么函数？有单引号返回值true，否则false
end;
先多谢了！

Answer 1

for i :=1 to length(s) do
  if s[i] = '''' then  result :=true;    

Answer 2

for i :=1 to length(s) do
  if s[i] = '''' then  result :=true;

Answer 3

for i :=1 to length(s) do
  if s[i] = '''' then  result :=true;

Answer 4

I := Pos(#39,StringName);
MyString := LeftStr(StringName,I)+#39+RightStr(StringName,Length(StringName)-I);
//记得要引用StrUtils单元

Answer 5

多谢二位！
因为我要用的String是要到SQL语句中用，所以必须要把所有的单引号找出来。

Answer 6

不用这么麻烦的找了，直接QuotedStr(S)即可，自动将你的单引号和双音好问题处理了！————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————