Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Adres hatası
#1
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;
Hayat bazen güzel olabiliyor.
Cevapla
#2
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.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Uniconnection mssql bağlantı hatası pro_imaj 3 184 13-01-2018, Saat: 13:27
Son Yorum: pro_imaj
  DataSnap Invalid Argumant Hatası burakb44 6 251 25-12-2017, Saat: 23:43
Son Yorum: burakb44
  Dataset Out Of Memory Hatası? delphi-x 2 245 02-11-2017, Saat: 00:16
Son Yorum: delphi-x
  Çalışmayı Durdurdu Hatası (Missing data provider or data packet )(Çözüldü) yhackup 3 324 30-06-2017, Saat: 17:09
Son Yorum: yhackup
  Fastreport da barcode hatası softdestek 4 519 12-06-2017, Saat: 09:59
Son Yorum: masteryoda



Konuyu Okuyanlar: 1 Ziyaretçi