Dudas con filtros en interbase

[iuqrul]

El componente TIBQuery, no hace caso a la propiedad Filter, pero sí a filtered, pero usando el evento OnFilterRecord, de esta manera:

procedure TForm1.IBQuery1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
/*Condiciono Accept al valor de la primera letra del campo*/
Accept := DataSet.FieldByName('descripcion').AsString[1] = 'A';
end;

Salu2.