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

[marydan]

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

谢谢大家了

[Darc]

function QuotedStr(const s: String): string;

给分。

[marydan]

补充一下
光去'能实现
但是如果s='0123'456789'
我想截取七位的时候
却实现不了了
大家来帮忙啊

StringConvert.Convert(Copy(s,1,7)) ;
StringConvert.Convert()方法是自己写的转义,既把单引号变成双引号。

[阿三]

create table t(t varchar(50));
在数据库中存入一条 0123'4567890的字符串

然后用程序调用它
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
with adoquery1 do
begin
close;
sql.Text := ' select t from t';
open;
if not eof then
s:= Fields[0].AsString;
showmessage(s);
showmessage(stringreplace(s,'''','''''',[rfReplaceAll]));
end;
end;

显示结果：0123'4567890
第二次显示结果 0123''4567890

[fa_ge]

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

[marydan]

StringConvert.Convert()方法能实现转义

DＥＰＨＩ中的copy是按照字节在截位的
例如:COPY('a你',1,2)后 在orcal出现多于字符。
就是把你字裁开了。
我用的是orcal自己的方法去截SUBSTRB(),但是只会转了义后才能截
有没有好的办法