怎样处理用户处理输入的单引号"'"字符

Question

我的sql语句是由用户输入的内容组成，如果输入'字符，提示sql语句出错，
请问怎样处理'字符

Answer 1

yourString := StringReplace(userInput, '''', '''''', [rfReplaceAll]);

Answer 2

sqlstr='select * from aaa where id='''+edit1.text+''''

Answer 3

''''
例如：
str_sql:=' select * '+表名+' where '+字段名+' = '+''''+edit1.text+'''';
记得要在分号前后加空格。

Answer 4

如果按楼上几位所说的去做的话，那么用户在edit1里输入'就会报错的

Answer 5

chechy(简简单单的活) ：
yourString := StringReplace(userInput, '''', '''''', [rfReplaceAll]);
这个方法也许不错

Answer 6

function BRSingleQuote (strVal: string): string;
begin
  BRSingleQuote := AnsiReplaceStr (strVal, '''', '''''');
end;//使用
sqlstr='select * from aaa where id='''+BRSingleQuote (edit1.text)+''''

Answer 7

用这个 QuotedStr(const S: string): string;
函数就可以了!
最简单的方法!

Answer 8

我不是用select,而是用insert into 遇见了这个问题，把它作为一个值写入数据库的