Gridde seçilen kayıtları sime

[muttalip]

Aşağıdaki ifade ile gridde seçilen kayıtları silmek istiyorum. unsafe type 'Pointer' şeklinde bir hata alıyorum.Acaba ne yapmam gerekiyor.
Delphi 7 kullanıyorum.

Kod: Tümünü seç

If Application.MessageBox('Silmek istediğinizden emin misiniz?', 'Uyarı',
             mb_IconExclamation + mb_YesNo)=idYes Then
 begin
  if DBGrid3.SelectedRows.Count > 0 then
  begin
    with DBGrid3.DataSource.DataSet do
    begin
      for i := 0 to DBGrid3.SelectedRows.Count-1 do
      begin
        ADOTable1.GotoBookmark(Pointer(DbGrid3.SelectedRows.Items[i]));
        ADOTable1.DeleteRecords(arCurrent);
      end;
    end;
    ADOTable1.Requery();
    DBGrid3.Hint:='Toplam : '+IntToStr(ADOTable1.recordcount);
  end;
 end;

[t-hex]

Merhaba,
GotoBookMark ile bir kayıda gidebilmeniz için öncelikle query bidirectional olmalı ayrıca Bookmark pointerları GetBookmark metoduyla alınmış olmalı. Yani

Kod: Tümünü seç

ADOTable1.GotoBookmark(Pointer(DbGrid3.SelectedRows.Items[i]));

satırında sizin aldığınız pointer ile bookmark pointerları farklı.

Sorun şu ki : GetBookmark metodu sadece üzerinde bulunan kayıt için bookmark döndürüyor, yani kayıtları silmeden önce ya bütün silinmesi gereken kayıtların üzerinden geçeceksiniz ve bookmark'ları toplayacaksınız ya da alternatif bir yöntem deneyeceksiniz.

Şahsen ben olsam bu işi SQL ile hallederdim, ya her kayıt için bir delete querysi çalıştırırdım ya da tüm seçilmiş kayıtlar için tek bir sql cümlesi oluşturup onu çalıştırırdım.

Belki de daha kolay bir yöntem vardır benim bilmediğim