Busqueda en tttable

[fefe13]

USO ESTE CODIGO PARA BUSCAR REGISTROS EN MI TABLA,PERO SI HAY 2 DATOS QUE SE REPITEN SOLO MUESTRA EL PRIMERO,COMO PUEDO CAMBIARLO PARA QUE AL DARLE AL BOTON DE BUSCAR OTRA VEZ PASE AL SIGUIENTE,SI HAY VARIOS CON EL MISMO PARAMETRO?GRACIAS POR CONTESTAR
var
criteriobusqueda:tlocateoptions;
buscarbien:boolean;

cont:integer;
num:string;
begin
criteriobusqueda:=[lopartialkey];

buscarbien:=table1.locate(combobox1.items[combobox1.itemindex],edit1.text,criteriobusqueda);

[Migpal]

Con el ttable no es posiblehacer eso hasta donde yo se, el cursor se ubica en el primero que encuentra, si quieres hayar mas, entonces te sugeriria:

tabla.first

while not tabla.eof do
begin
if tabla.locate... then agregaraunalista(registro);
tabla.next;
end;

con esto tiene en una lista los registros repetidos.

[fefe13]

Vale gracias por tu respuesta pero que significa"AGREGAR UNA LISTA Y REGISTRO"

[Migpal]

Una lista encadenada, Tlist puede ser, sirve para guardar estructuras de datos, entonces

milista:Tlist;

milista.clear;
milista.add(apuntador de la estructura que guarda el registro de la tabla);

hay quedan entonces todos los registros repetidos.

[fefe13]

el problema es que no me aparece el tlist,yo tengo el delphi 7,no se si sera por eso

[vtdeleon]

Saludos

Empezado por fefe13

USO ESTE CODIGO PARA BUSCAR REGISTROS EN MI TABLA,PERO SI HAY 2 DATOS QUE SE REPITEN SOLO MUESTRA EL PRIMERO,COMO PUEDO CAMBIARLO PARA QUE AL DARLE AL BOTON DE BUSCAR OTRA VEZ PASE AL SIGUIENTE,SI HAY VARIOS CON EL MISMO PARAMETRO?

Respondiendo el 1er post, podrias usar LocateNext

Empezado por Ayuda Delphi

Searches the dataset for the record after a specified record and makes that record the current record.
...
Call LocateNext to search a dataset for a record after the current cursor position

[Delfino]

Respondiendo el 1er post, podrias usar LocateNext

Si no me equivoco LocateNext existe solo para los IBTable, IBDataset etc..

[fefe13]

Es cierto el locatenext no sigue para los ttables.Alguna otra idea?Gracias