procedure
TForm1
.
Button7Click(Sender: TObject);
begin
ADOTable1
Filter :=
'[Дата] = '
'07.10.2018'
''
;
Filtered :=
True
end
Сайт
Форум
FAQ
Соглашения
Прочее