Ver Mensaje Individual
  #4  
Antiguo 19-06-2010
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.671
Reputación: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
Es algo complejo cuando no has explicado detalladamente qué quiéres hacer, pero si no voy muy mal equivocado, sólo pretendes buscar un texto y usas interbase con los componentes ibx?

Lo más lógico es usar sql, un componente IBDataSet y en su propiedad selectsql.text pones la sentencia de búsqueda, algo así:

Añade al form un tibdataset, un tedit y un botón
Código:
QR1: TIBDataSet;
bt1: TButton;
ed1: TEdit;
En el edit ponemos lo que queremos buscar y en el onclick del botón:

Código:
procedure TForm1.bt1Click(Sender: TObject);
begin
  qr1.Close;
  qr1.SelectSQL.Text := 'select campo from tutabla where campo containing '+quotedstr(ed1.text);
  qr1.Open;
  ShowMessage( QR1.fields[0].AsString );
end;
Es sólo un ejemplo para que te sirva de referencia.
Responder Con Cita