本文整理自网络,侵删。
var FDQ: TFDQuery;begin FDQ := TFDQuery.Create(Nil); ListViewHavuz.BeginUpdate; try if ListViewHavuz.Selected = Nil then // www.delphitop.com Exit; for I := Pred(ListViewHavuz.ItemCount) downto 0 do begin if ListViewHavuz.Items[I].Data['Select'].AsInteger = 2 then begin FDQ.Connection := FDConnection; FDQ.Active := False; FDQ.Close; FDQ.SQL.Clear; FDQ.SQL.Add('Delete From HAVUZ Where ID=:ID'); FDQ.ParamByName('ID').AsInteger := ListViewHavuz.Items[I].Data['Id'].AsInteger; FDQ.ExecSQL; ListViewHavuz.Items.Delete(ListViewHavuz.Items[I].Index); end; end; finally ListViewHavuz.EndUpdate; FDQ.Free; end;end;
相关阅读 >>
Delphi 解决strtodatetime()不是有效日期类型的问题
更多相关阅读请进入《Delphi》频道 >>