在Delphi中,使用QuotedStr函数可以防止SQL注入。QuotedStr函数将传入的字符串添加引号,防止特殊字符被解释为SQL语句的一部分。
例如,下面是一个使用QuotedStr的示例:
```delphi
var
username: string;
password: string;
query: string;
begin
// 获取用户输入的用户名和密码
username := EditUsername.Text;
password := EditPassword.Text;
// 构建查询语句,并使用QuotedStr函数处理用户名和密码
query := 'SELECT * FROM users WHERE username = ' + QuotedStr(username) +
' AND password = ' + QuotedStr(password);
// 执行查询等后续操作
// ...
end;
```
在上面的示例中,使用QuotedStr函数处理了用户输入的用户名和密码,确保它们被添加引号并准确地传递给SQL查询语句,从而防止SQL注入攻击。