Adres hatası

[Dostk]

Merhaba.

Listview veya db den toplu kayıt silmek istediğimde adres hatası alıyorum fakat kayıtları 1 veya 2 kayıt sildiğimde hata almıyorum bu sorun neden kaynaklı olabilir.

procedure TForm2.BtnPLSilClick(Sender: TObject);
begin
  try
    With Form1.Query, Listv do
    begin
      if SelCount > 0 then
      begin
        for I := Items.Count - 1 downto 0 do
        begin
          if Items[I].Selected then
          begin
            Connection := Form1.Connection;
            Active := False;
            Close;
            SQL.Clear;
            SQL.Add('Delete From LISTLER Where ID=: DEL ' ) ;
            ParamByName('DEL').AsInteger := StrToInt(Items[I].SubItems[12] )  ; // Not: siteden kaynaklı icon nedeniyle aralarda boşluk bıraktım
            ExecSQL;
            Items.Delete(I);
          end;
        end;
      end;
    end;
  finally
    Form1.Query.Close;
  end;
end;

procedure TForm2.BtnPLSilClick(Sender: TObject);
begin
  try
    With  Listv do
    begin
      if SelCount > 0 then
      begin
        for I := Items.Count - 1 downto 0 do
        begin
          if Items[I].Selected then
          begin
            Items.Delete(I);
          end;
        end;
      end;
    end;
  finally
  end;
end;

[esistem]

Selam,
Yapmanız gereken, önce listbox ı döngüye sokup SQL ile kayıtları silip, daha sonra listbox u temizlemenizdir. Listbox döngüde iken aradan item çıkartırsanız item count değiştiği için access violation hatası alırsınız.