在ListView中怎样删除一条记录

Question

我用ListView来显示数据表中的内容，如果我的鼠标点在ListView中的任何一条记录，然后我要删除这条记录怎么做啊？请详细写出代码谢谢大家。我出100分。希望大家帮帮忙。谢了。。

Answer 1

为什么要用ListView 不用DBGRID.

Answer 2

procedure TForm1.ListView1Click(Sender: TObject);
begin
      with ADOQuery1 do
      begin
            Close;
            SQL.Text := 'DELETE FROM table WHERE 字段名=' + QutoedStr(ListView1.Selected.Caption);
            ExecSQL;
      end;
      ListView1.Selected.Delete;
      ListView1.Refresh;
end;

Answer 3

listview1.selected.delete是删除先中的数据
如果想全部删除，可以用
listview1.clear;

Answer 4

SQL.Text := 'DELETE FROM table WHERE 字段名=' + QutoedStr(ListView1.Selected.Caption);