我想把字符串中所有的'换成两个'
比如abc'c换为abc''c,或者abc''c换为abc''''c
请指点
比如abc'c换为abc''c,或者abc''c换为abc''''c
请指点
解决方案 »
- DBGridEh列尾合计不能自动刷新的问题!
- 谁有Wingdows优化大师的愿码?
- 提取汉字的音首字母?
- 在Delphi中如何实现对sql server 数据库的备份。。。
- 如何调试DLL文件,调试高手请进!!!谢谢啦!
- 做单机版,怎样判断是在本地访问数据库的?100分。
- 为什么DELPHI不能自动使用16*16的图标?
- Report Builder中,Group Band在哪个地方????
- 各位高手谁有李维的书,高分相送
- string类型转换成pchar类型时出错
- quickreport中,为何我放在groupfooter中的统计结果显示不出来?
- 有谁知道TEITreeView这个控件,我想取得它在别的进程中Node的文本值,如何才能得到.先谢过
function QuotedStr(const S: string): string;DescriptionUse QuotedStr to convert the string S to a quoted string. A single quote character (') is inserted at the beginning and end of S, and each single quote character in the string is repeated.
StrUtils;procedure TForm1.Button1Click(Sender: TObject);
const
s = 'abc''c';
begin
ShowMessage(AnsiReplaceText(s, '''', ''''''));
ShowMessage(StringReplace(s, '''', '''''', [rfReplaceAll]));
end;