طريقه انتخاب مجموعه ای از رکوردها در DBGrid (فيلتر کردن رکوردهای انتحاب شده)
var
x: Integer;
BMList: array of TVarRec;
begin
SetLength(BMList, dbgrid1.SelectedRows.Count);
for X:=0 to dbgrid1.SelectedRows.Count - 1 do
begin
BMList[x].VType := vtPointer;
BMList[x].VPointer := Pointer(dbgrid1.SelectedRows[x]);
DataModule1.ADOTable1.GotoBookMark(BMList[x].VPointer);
end;
DataModule1.ADOTable1.FilterOnBookmarks(BMList);
end;
