Фильтр тормоза большие.
Лучше через запрос сделать
Примерный алгоритм:
var
q: TQuery;
begin
q := TQuery.Create(nil);
q.SQL.Add('select Id from Таблица where Date>=:FromDate and Date<=:ToDate');
q.Params.ParamByName['FromDate'] := С какой даты;
q.Params.ParamByName['ToDate'] := По какую дату;
q.Open;
Table.Locate('Id', q.FieldByName('Id').AsInteger, []);
q.Close;
q.Free;
end;
|