Dbgrid ve TBookmarkList

[comfort]

Arkadaşlar sorum çok kolay ama ben çözemedim.Formumda dbgridin içinde stoklarımı listeliyorum.dbgridin altında 2 buton var .Bitanesi "Seçili olanların çıkışını yap",diğeride "Hepsinin çıkışını yap" .Seçili olanları Bookmarklist içerisine atıyorum ,

Kod: Tümünü seç

var 
liste:TBookmarkList;
begin
liste:=DBGrid1.SelectedRows;
end;

Peki Hepsini nasıl Bookmarklkist in içine atarım.
yani dbgridin bütün satırlarını...
sanıyorum dbgridde selectall gibi bir metot yok ...
Bu arada veritabanı firebird bileşen TIBQuery.

[hdayi]

dbdrid'e neden takıldın? Hepsinin çıkışını yine bi query ile yapsan olmaz mı?

[comfort]

Hocam sorun dbgrid değil aslında.
Ama ben dbgridden seçilen kayıtlar üzerinde işlem yapıyorum.Dolayısıyla kodumuda ona göre hazırladım.Yukarda yazdığım kodun devamı şu şekilde.

Kod: Tümünü seç

var
kayit:TBookmark;
begin
 Kayit := TBookMark(Liste.Items[i]);
      arama.GotoBookmark(Kayit);
      MalzemeTalepTablosu.Locate('id', aramaid.AsInteger, []);

yani TBookmarkListin içine attığım kayıtlara malzemetaleptablosu 'ndan ulaşıyorum.
Anlatamadım galiba...
yani ben işlemlerimi TBookmarkList ile kayıtlara ulaşarak yapıyorum.Ama bütün kayıtlara ulaşmak için başka kod yazmam gerekecek.oysa aynı satırları kullanarak eğer Bookmarklistin içine bütün tabloyu atarsam ayrı bir kod yazmam gerekmeyecek.

[comfort]

dbgridde selectall

Kod: Tümünü seç

var
 ABookmark: TBookmark;
begin
   with DBGrid1.DataSource.Dataset do begin
     if (BOF and EOF) then Exit;
     DisableControls;
     try
       ABookmark := GetBookmark;
       try
         First;
         while not EOF do begin
           dbgrid1.SelectedRows.CurrentRowSelected := True;
           Next;
         end;
       finally
         try
           GotoBookmark(ABookmark);
         except
         end;
         FreeBookmark(ABookmark);
       end;
     finally
       EnableControls;
     end;
   end;

Herkese Kolay Gelsin