源自 SysUtils说明 * 给字符串S的前面、后面加上由Quote给出的字符，除此之外，如果S中存在和Quote相同的字符， 则会在此字符傍再加一个Quote字符。并返回结果。 * Quote 可以是任意字符，例如 '、@、$、% ......。 下面是一些例子： 结果 AnsiQuotedStr('I love you', '$') ----------> $I love you$ 结果 AnsiQuotedStr('我喜欢 $ 甚于你', '$') --------> $我喜欢 $$ 甚于你$ (中间的$被再加上一个) AnsiQuotedStr('I Can't', '''') -------> 'I Can''t' (遇到相同的字符'，加多一个) * 本函数支持多字节字符集 * 在一些场合中，例如SQL语法，往往都是某些符号来做引用符。这时可以使用本函数来将字 符串中的引用符保留下来。参数 S 要进行操作的字符串 Quote 要加入的引用符返回值 返回处理后的结果例子 const cSQLQuoted = ''''; cSQLLikeQuoted = '%'; procedure TForm1.MakeSQL(Value: String; Quoted: Char); begin case Quoted of cSQLQuoted: Result := 'select * from User where UserName = ' + AnsiQuotedStr(Value, Quoted) cSQLLikeQuoted: Result := 'select * from User where UserName like ' + AnsiQuotedStr(AnsiQuotedStr(Value, Quoted), cSQLQuoted); end; end;
