求助：在Delphi中使用TFDQuery根据输入框值删除记录的问题

我来帮你排查下代码里的问题，这几个小错误导致删除操作没正常工作：

1. SQL语句语法错误 #

你的DELETE语句写错了：

• 不需要加*，DELETE语句默认是删除整行记录
• 缺少WHERE关键字，否则会删除表中所有记录（这可太危险了！）
  正确的SQL应该是：

DELETE FROM MyTable WHERE column_name = :KEY1

2. 参数赋值的两个错误 #

原代码里的赋值有问题：

• Delphi里赋值要用:=，而不是=（=是比较运算符）
• 你把dbedit.text当成了字符串字面量，实际上应该引用控件的Text属性，去掉引号
  正确的参数赋值应该是（假设你的DBEdit控件名叫DBEdit1）：

FDQuery.ParamByName('KEY1').AsString := DBEdit1.Text;

3. 执行方法选错了 #

FDQuery.Open是用来执行查询类语句（比如SELECT）获取结果集的，删除、插入、更新这类无返回结果的操作，应该用ExecSQL方法。

完整的正确代码示例 #

begin
  FDQuery.SQL.Clear;
  FDQuery.SQL.Add('DELETE FROM MyTable WHERE column_name = :KEY1');
  FDQuery.ParamByName('KEY1').AsString := DBEdit1.Text; // 或者Edit1.Text，看你用的控件
  FDQuery.ExecSQL;
  ShowMessage('记录删除成功！');
  // 如果是绑定了数据集的界面，记得刷新一下显示
  // 比如 FDTable.Refresh; 或者 DBGrid1.DataSource.DataSet.Refresh;
end;

额外注意事项 #

• 确认column_name是你表中正确的字段名，大小写要和数据库里一致（有些数据库区分大小写）
• 如果字段是数值类型（比如整数、浮点数），要改用AsInteger/AsFloat而不是AsString，避免类型转换错误
• 建议加上事务处理，防止误删或者操作失败时可以回滚：

begin
  FDConnection.StartTransaction;
  try
    // 上面的删除代码
    FDConnection.Commit;
    ShowMessage('删除成功');
  except
    FDConnection.Rollback;
    ShowMessage('删除失败：' + Exception(ExceptObject).Message);
  end;
end;

内容的提问来源于stack exchange，提问作者Gadi Abdellah