在dephi中如何把'转成''(高手快来)

Question

在dephi中如何把'转成'' 
既 S='aaaaa'aaaaa';
我想要的最后结果是 S='aaaaa''aaaaa'谢谢大家了

Answer 1

使用AnsiReplaceStr或者 StringReplace 进行替换
搜索下使用方法就行了

Answer 2

 S='aaaaa'aaaaa'; 
StringReplace(s,'a''a','a"a',[rfreplaceall]);

Answer 3

前一个是a'  ' a 后一个是a"a(双引号)

Answer 4

首先：在delphi S :='aaaaa'aaaaa';
      这样写能对吗？应该 S := 'aaaa''''aaaa';
这样S的字符串是 aaaa'aaaa

Answer 5

更正一下   S := 'aaaa''''aaaa' 对应的是　aaaa''aaaa
           S := 'aaaa''aaaa'   对应的是  aaaa'aaaa

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
  s:='aaaaa''aaaaa';
  showmessage(stringreplace(s,'''','''''',[rfReplaceAll]));
end;

Answer 7

procedure TForm1.Button1Click(Sendder:TObject);
var
  str:string;
begin
  str:='aaaa''''bbbb';
  ....
end;

Answer 8

function QuotedStr(const s: string): string;给分。