Фильтр несколько дней с интервалом

[Аватар]

Now не пойдет - дата + время

dt:=DataSet.FieldByName('Дата').AsDateTime;
Accept:=(dt=Date) or (dt=Date+2) or (dt=Date+4);

[Scorpuha]

ругается
на

procedure TDataModule2.ADOQuery1FilterRecord(DataSet: TDataSet;  var Accept: Boolean);
 var dt:TDate;  вот тут ошибку выдает
begin
   dt:=DataSet.FieldByName('Data_pereatestat').AsDateTime;
Accept:=(dt=Date) or (dt=Date+2) or (dt=Date+4);
end;

[Error] Unit2.pas(46): Undeclared identifier: 'TDate'

[Аватар]

Замени на TDateTime

[Serge_Bliznykov]

Сообщение от Scorpuha

ругается
на

 var dt:TDate;  вот тут ошибку выдает

[Error] Unit2.pas(46): Undeclared identifier: 'TDate'

согласен с советом Аватар, но вообще ересь какая-то!
Видимо, что-то в новых Delphi поменяли.

в старой Delphi в модуле Controls описано:

  TDate = type TDateTime;

p.s. чтобы избежать накладок, когда дата в БД хранится вместе со временем, я бы написал так:

var dt:TDateTime;
begin
  dt:= trunc( DataSet.FieldByName('Data_pereatestat').AsDateTime );
  Accept:=(dt=Date) or (dt=Date+2) or (dt=Date+4);
end;

[Scorpuha]

у меня храниться просто дата. вот такой вопрос точнее два. можно ли эту процедурку назначить не по событию OnFilterRecord а к нажатию кнопки. и как вывести сообщение о количестве найденных записей. Совсем обнаглел

[Аватар]

И все ради этого? Можно конечно. RecordCount после установки фильтра. А не проще ли запросом это количество получить?

[Scorpuha]

Пробовал Showmessage, не прокатывает. а про запрос было бы чудненько. у меня с запросами дружбы нету, из-за синтаксиса. все эти скобочки, кавычечки, апострофы, вот где почитать про них.

[Аватар]

Коряво это. ADOQuery1FilterRecord должен быть назначен

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  ADOQuery1.Filtered:=True;
  i:=ADOQuery1.RecordCount;
  ADOQuery1.Filtered:=False;
  ShowMessage(Format('Записей %d',[i]));
end;

[Scorpuha]

чуточку подправил добавив строку

procedure TMainForm.Button3Click(Sender: TObject);
var i: Integer;
begin
  Datamodule2.ADOQuery1.Open;
  Datamodule2.ADOQuery1.Filtered:=True;
  i:=Datamodule2.ADOQuery1.RecordCount;
  Datamodule2.ADOQuery1.Filtered:=False;
  ShowMessage(Format('Çàïèñåé %d',[i]));
end;

и стало ругаться ADOQuery1: missing SQL property

[Аватар]

missing SQL property

не о чем не говорит? Cам запрос то в ADOQuery нужно поместить.