no se si asi se diga; pero como hacer un lookup en un query

[jazmin]

hola chicos buenas!

tengo una duda con el componente dbgid o query no se cual seria el que aplica en este caso

lo que pasa es que necesito hacer una consulta en una tabla imaginense de 1000 datos de los cuales al regresar de la consulta se filtraron y solo quedaron 100

pero despues de quedar 100 necesito posicionarme sobre un elemento en particular para ver cual elemento le antece y cual le precide

hice un for y con un next voy comparando de uno por uno
pero es mas lento y si la busqueda se hace de mas de 100 datos de resultado pues es mas tardado el ciclo

mi pregunta es como posiciorme con una instruccion en una renglon del query

no se estoy divagando pero algo asi,

query1.lookup(query1referencia.value,'150')



donde el primer dato se la variable a comparar y el segundo dato el dato que estoy buscando y que en automatico me posicionara en esa direccion
para yo adelantar y atrazar el query y obtener los datos que estoy buscando

me pueden ayudar


algo asi como esto estoy usando pero no es muy practico

For x:=0 to query1.RecordCount-1 do begin
 
   if query1referencia.Value='150' then begin
      query1.Prior;
      anterior:=query1referencia.value;
      query1.next;
      query1.next;
      siguiente:=query1referencia.value;
   end
   else
      query1.next;
end;

ha pro cierto muchas gracias por siempre ayudarme

[Faust]

Busca en la ayuda de delphi sobre los TQuerys su procedimiento Locate, creo que no funciona muy bien en algunas bases de datos SQL pero en access, paradox, dbase y foxpro no hay mucho problemas.

Saludos

[*Caro*]

Hola jazmin, como te dice faust puedes utilizar la función Locate.

Código Delphi [-]
If Query.Locate('referencia', '150', [loCaseInsensitive]) Then
 begin
   Query.Prior;
   .....................
   ..................... 
 end;

Saluditos

[Faust]

Empezado por Caro

Hola jazmin, como te dice faust puedes utilizar la función Locate.

Código Delphi [-]If Query.Locate('referencia', '150', [loCaseInsensitive]) Then begin Query.Prior; ..................... ..................... end;


Saluditos

Sorry... me faltó un ejemplo... bueno, pero quería alentarte a que busques un poquito...

Saludos.