mover indicador de un dbgrid a un registro especifico

[thelibmx]

Hola amigos tengo una pequeña duda espero me puedan ayudar,
tengo un DBGrid1 conectado a una tabla(ttable) y veran lo que hago con este codigo es que en una caja de texto tengo un numero, entonces con el while recorro toda la tabla hasta que el numero se iguala con el que tengo en la caja de texto,

Código Delphi [-]
while (not formconecciones.tablesemanas.eof) and not (a_grid=semanacaja.text) do
begin
formconecciones.tablesemanas.next;
a_grid:=formconecciones.tablesemanas.FieldByName('numero_semana').AsString;
end;

hago esto para que el indicador o apuntador o la flechita que tiene el grid se posicione en el renglon o fila donde esta situado ese valor.

mi pregunta es, hay una manera mas facil de hacerlo, es decir en ves de recorrer la tabla hasta el fin, hay una manera de poner una linea de codigo que no haga el barrido y sea como un select,? por decir, haber si me explico con esto, digamos, seleccioname el registro que se encuentra en la tabla x donde el registro "numero de semana" es iguala a "caja de texto" . espero explicarme bien, es decir lo unico que quiero es que el indicador que tiene el grid o la flechita se posicione en el mismo registro que coincide con la caja de texto espero haberme explicado bien, si no por favor pregunten por que cre que ni yo me entendi jeje

[marcoszorrilla]

Si tienes un índice sobre el campo que pretendes buscar:

Código Delphi [-]
Table1.IndexName:='ElQueProceda';
Table1.FindKey([LoQueSEa]);

Un Saludo

[[basti]]

O si no tienes índice por el campo

Código Delphi [-]
  Table1.Locate('nombreCampo', valorBuscado, []);

[thelibmx]

Les agradesco su ayuda amigos, lo que yo quiero hacer es el equivalente de esta instruccion pero para el grid osea que el indicador del grid se posicione en donde coincide con esas clausulas o ese query

creo que el equivalente de lo que quiero hacer es esto

Código Delphi [-]
//formconecciones.Querycatalogosemanas.sql.add('select * from catalogo_semanas where (fecha_inicio='+formatdatetime('yyyy-mm-dd',strtodate(Editagregarfecha.text))+' or fecha_fin='+formatdatetime('yyyy-mm-dd',strtodate(Editagregarfecha.text))+')');

quiero que en el grid me señale o indique el resultado de ese query, como podria adaptarlo?

agradesco su ayuda

[jlchiodo]

Como te indicaran en otro msg.:

con el Locate('nombre_cpo', var, [TLocateOptions]) el cursor de la grilla (grid)
se posiciona solo en el registro que cumpla la condición buscada.

Pero si lo que necesitas es ver el resultado de un conjunto de registros que cumplan con determindas condiciones, luego de efectuar el "filtro" en tu Table1, debes "refrescar" tu grilla:

with formconecciones.Querycatalogosemanas do
begin
sql.add('select * from catalogo_semanas where (fecha_inicio='+formatdatetime('yyyy-mm-dd',strtodate(Editagregarfecha.text))+' or fecha_fin='+formatdatetime('yyyy-mm-dd',strtodate(Editagregarfecha.text))+')');[FONT=verdana,geneva,lucida,'lucida grande',arial,helvetica,sans-serif]
end;
DBGrid1.Refresh;

Espero que te sirva de ayuda.
[/font]

[thelibmx]

ok, haber para entender un poco mas, si el locate hace lo que yo busco, podrias ayudarme un poco con la sintaxis, creo q ese seria mi problema ahorita quedaria algo asi supongo , a menos que me corrijas,

Código Delphi [-]
 
Table1.Locate('nombreCampo', valorBuscado, []);
 
Table1.Locate('numero_semana',(fecha_inicio='+formatdatetime('yyyy-mm-dd',strtodate(Editagregarfecha.text))+' or fecha_fin='+formatdatetime('yyyy-mm-dd',strtodate(Editagregarfecha.text))+')', []);

mi duda es esa, como quedaria la sintaxys ocupando locate si quisiera hacer lo que hace el query.