在Delphi中,QuotedStr是一个函数,其作用是将字符串用引号括起来。
QuotedStr函数会接收一个字符串参数,返回用引号括起来的字符串。
使用QuotedStr函数比较常见的场景是在构建SQL语句的时候,将字符串值引用起来,以保证字符串的值能正确传递给数据库。如,若要把一个名字为John的用户插入到数据库中,可使用以下代码:
var
name: string;
sql: string;
begin
name := 'John';
sql := 'INSERT INTO users (name) VALUES (' + QuotedStr(name) + ')';
// 执行sql语句...
end;
在以上例子中,QuotedStr函数将变量name的值John用引号括起来,构建出一个包含引号的字符串。
在使用QuotedStr函数的时候,若字符串中包含引号,需要对引号进行转义。如,若要将一个包含引号的字符串插入到数据库中,可使用以下代码:
var
value: string;
sql: string;
begin
value := 'This is a "quoted" value';
value := StringReplace(value, '"', '""', [rfReplaceAll]); // 转义引号
sql := 'INSERT INTO table (column) VALUES (' + QuotedStr(value) + ')';
// 执行sql语句...
end;