参数不足，期待为1

Question

begin
  with Query1 do
  begin
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('delete from vipinfo where cardno ='+'"'+Edit1.Text+'"');
    Query1.ExecSQL;
  end;
end;请高手帮忙看一下，这个语句是什么错误

Answer 1

不能用双引号吧。Query1.SQL.Add('delete from vipinfo where cardno ='+''''+Edit1.Text+'''');

Answer 2

begin
  with Query1 do
  begin
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('delete from vipinfo where cardno ='''+Edit1.Text+'''');
    Query1.ExecSQL;
  end;
end;