Tüm Platformlar için Hızlı Uygulama Geliştirme Kitabı... Delphi

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
  Sunucu hatasi donma arsl01 17 250 16-10-2018, Saat: 17:02
Son Yorum: arsl01
  XPrinter -printer is not currently printing hatası Bay_Y 4 112 04-10-2018, Saat: 16:53
Son Yorum: Bay_Y
  IP Adres Aralığı Hesaplama SercanTEK 5 198 01-09-2018, Saat: 14:15
Son Yorum: SercanTEK
  webden json okuma hatası arsl01 3 211 25-06-2018, Saat: 15:17
Son Yorum: arsl01
  webbrowser nesnesi sayfa bulunamadı hatası klavye 2 334 01-06-2018, Saat: 16:55
Son Yorum: klavye



Konuyu Okuyanlar: 1 Ziyaretçi