[poli-smen]

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

Сделел так

Код:

if Date - Int(datamodule3.ADOTable1.FieldByName('Дата').AsDateTime) > 25 then

И получилось, что проверка условия выполняется только для первой строки таблицы, а нужно проверять всю таблицу.
Подскажите где подкрутить?

Проверка выполняется не для первой строки таблицы, а для текущей. И не строки, а записи - когда речь идёт о таблицах баз данных - говорят не о "столбцах" и "строках", а о "полях" и "записях".

Чтобы выполнить какое либо действие для всех записей таблицы, нужно по ним пройтись циклом.
Пример:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  datamodule3.ADOTable1.First; // Становимся на первую запись таблицы
  while not datamodule3.ADOTable1.Eof do // Пока записи не закончились:
  begin
    if Date - Int(datamodule3.ADOTable1.FieldByName('Дата').AsDateTime) > 25 then
    begin
      Memo1.Lines.Add('Условие выполняется в записи №'+IntToStr(datamodule3.ADOTable1.RecNo));
    end;
    datamodule3.ADOTable1.Next; // Переходим к следующей записи таблицы
  end;
end;

p.s. Ну и конечно используя TADOQuery вместо TADOTable можно SQL-запросом сразу выбрать только удовлетворяющие условию записи.