[Serga]

Возможно ли отфильтровать таблицу по дате с помощью именно свойства filter?
Такой код при cb_age ItemIndex = 1 возвращает все записи, = 0 - ни одной. Мож я чего не понимаю((

Код:

var
 tmp_date : TDate;
 Month, Day, Year : Word;

begin
 if ed_age.Text <> '' then
 begin

 DecodeDate(Date, Year, Month, Day);
//изменяем дату на n лет..
 tmp_date :=EncodeDate(Year - StrToInt(ed_age.Text), Month, Day) ;

 case cb_age.ItemIndex of
  0: f_date := 'born <= '''  + DateTostr(tmp_date)+ '''';
  1: f_date := 'born >= '''  + DateTostr(tmp_date)+ '''';

end;
 tbl.Filter := f_date;
 tbl.Filtered := true;
 end;
end;