Foros Club Delphi - busqueda de aproximacion en dbgrid

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - busqueda de aproximacion en dbgrid (https://www.clubdelphi.com/foros/showthread.php?t=1033)

busqueda de aproximacion en dbgrid

Quisiera ayuda urgente sobre lo siguiente:

Tengo añadido en un formulario lo siguiente:

Ttable, datasource, dbgrid, combobox y edit.

Sobre el combobox me aparecen los indices que existen definidos para dicha tabla.

el datosource esta enganchado al table y el dbgrid esta engachando al datasource. Hasta aqui sin problem.

Me interesaria saber como puedo hacer que según el indice que eliga en el combobox el texto que se pone en el edit lo busque sobre dicho campo.

Ademas, como puedo hacer para que cuando vaya pulsando sobre el edit un caracter se vaya posicionando sobre la linea del dbgrid, es decir, vaya aproximando la busqueda sobre el registro.

Muchas gracias.

Hola:

Para Asignar un índice a una tabla tienes que modificar su propieda indexname:

Código:

Table1.indexname := 'nombreIndice';

si tienes todos los indices en un comboBox se quedaría mas o menos asi :

Código:

Table1.indexname := ComboBox.Text;

Para posicionarte en el registro que más se parece a una condición puedes usar el método FindNearest del TTable.
Aqui te dejo un trozo de texto extraído de la ayuda de Delphi 5:

Cita:

The following example performs an incremental search on a table. The form contains a db grid, an edit box, a data source, and a table. As the user types in the edit box, the cursor of the grid moves to the nearest match in the table.

Código:

procedure TForm1.FormActivate(Sender: TObject);



begin

  Table1.DatabaseName := 'DBDemos';

  Table1.TableName := 'Customer.db';

  Table1.Active := True;

  Table1.IndexName := 'ByCompany';

end;



procedure TForm1.Edit1Change(Sender: TObject);



begin

    Table1.FindNearest([Edit1.Text]);

end;

Saludos y Suerte!!.