Búsqueda en listbox

[[cHackAll]]

Empezado por david_uh

...la búsqueda así es secuencial?...

Código Delphi [-]
function TStrings.IndexOfObject(AObject: TObject): Integer;
begin
  for Result := 0 to GetCount - 1 do
    if GetObject(Result) = AObject then Exit;
  Result := -1;
end;

Eso fue copiado de la misma VCL del Delphi, creo responde a la pregunta.

A lo otro un poco mas concreto:
Simplemente pones la linea que deje, y obtienes la posicion, con la posicion obtendras el nombre... por ejemplo

Código Delphi [-]
...
 Posicion := lis_clientes.Items.IndexOfObject(Pointer(txtID.Tag));
 if Posicion <> -1 then
  txtNombre.Text = lis_clientes.Items[Posicion];
...

Creo que ahorras algo de código, suerte!