Cita:
|
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!