[[cHackAll]]

Empezado por david_uh

...una búsquda sobre 10000 registros o más podría no ser eficiente...

bueno no estoy muy de acuerdo con esa forma de pensar pues de todas formas los programas deben realizar dicha busqueda internamente para encontrar los datos que el usuario requiere... imaginate al hacer una consulta SQL lo que debe hacer para hacer un simple

Código SQL [-]
select * from Empleados where Cargo like 'Gerente*'

... en defintiva hay metodos de optimizacion que utilizaron los creadores del motor pero en todo caso en algun momento debe hacer un "barrido" de cada uno de los registros de tal tabla.

Pero bueno, si lo que buscas es acortar la cantidad de lineas utilizadas en tu código fuente os dejo la siguiente:

Código Delphi [-]
 Posicion := lis_clientes.Items.IndexOfObject(Pointer(12));

Buscamos el puntero $12 y su posicion la guardamos en una variable, siendo un -1 = "not found".

Saludos