Busqueda Booleana con IBDataset

[ecfisa]

Hola.

Podrías valerte del método IsEmpty, por ejemplo:

Código Delphi [-]
function ClienteExiste(aDataSet: TIBDataSet; aName: string):Boolean;
begin
  with aDataSet do
  begin
    Close;
    SelectSQL.Text:='SELECT * FROM CLIENTES WHERE NOMBRE LIKE :VALUE';
    ParamByName('VALUE').Value:= aName;
    Open;
    Result:= not IsEmpty;
  end;
end;

Llamada ejemplo:

Código Delphi [-]
...
  if ClienteExiste(IBDataSet,Edit1.Text) then
    ShowMessage('existe')
  else
    ShowMessage('no existe')
...

Saludos.