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.
|