условие на значение поля

[govorun1]

Не могу сообразить как правильно написать:

if хотябы одно из значений поля 'дата' =StrToDatetime(Edit1.text) then...

Спасибо

[Serge_Bliznykov]

например, так:

AdoQuery1.Close;
AdoQuery1.SQL.Text := 'select count(*) as cntD from ВашаТаблица where Дата = :dt1';
AdoQuery1.Param.ParamByName('dt1').AsDateTime := StrToDatetime(Edit1.text);
AdoQuery1.Open;
if Not  AdoQuery1.IsEmpty then
  if AdoQuery1.FieldByName('cntD').AsInteger>0 then ....


AdoQuery1.Close;

p.s. если БД позволяет, то можно выбрать первую запись с требуемой датой, см. Select top 1 ....