TADODataSet.Filter Syntax Fehler

[omata]

Schöner ist allerdings...

Delphi-Quellcode:

procedure TForm.TADODatasetFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  accept := (    (Dataset.FieldByName('x').AsInteger > 10)
             and (   (Dataset.FieldByName('y').AsInteger > 10)
                  or (Dataset.FieldByName('z').AsInteger > 100)));
end;