Question

Delphi 字符串，单引号， 执行SQL语句问题？

',''' + Trim(edtBeiZhu.Text) + '''' + ')';
上面的字符串，会出现两个单引号，这是什么问题？头都大了！！

Answer 1

在 delphi 语言中，用单引号来表示字符串，如果遇到字符串含有单引号的情况下，使用两个单引号来表示。

下面的代码：

',''' + Trim(edtBeiZhu.Text) + '''' + ')

最终生成的字符串如：

这种字符串的写法，视觉上不太好，针对这种情况，delphi 其实提供了一个专门的函数 QuotedStr。上面的代码可以写成：

',' + QuotedStr(Trim(edtBeiZhu.Text))+ ')'

两者效果一样。

追问

我遇到的问题很奇怪,明明是一输入的是一个单引号,却变成了两个单引号
QuotedStr使用这个函数也是在字符串左右各出现两个单引号

Answer 2

  //方法1
  With ADOQuery1 Do
  Begin
    Close;
    SQL.Text := Format('SELECT * FROM sys.tables where name=%s', [QuotedStr(Edit1.Text)]);
    Open;
  End;

  //方法2
  With ADOQuery1 Do
  Begin
    Close;
    SQL.Text := 'SELECT * FROM sys.tables where name=:p1;';
    Parameters.Clear;
    Parameters.CreateParameter(':p1', ftString, pdinput, 32, Edit1.Text);
    Open;
  End;

追问

ftString, pdinput 这两个提示没有定义，该引用哪个单元吗？

追答

uses DB