Buscar elemento en listbox

[mblascog]

Gracias AgustinOrtu. Creo que defiere un poco entre el ComboBox y el ListBox. SeltStart y SelLength no están implementadas en ListBox.
Había pensado en la implementación manual, y voy a hacerlo ahora, pero me da la sensación que debe ser lento, pues además de buscar si por el contenido del edit empieza algún elemento del listbox (ordenado), tienes que comprobar cuando se haya pasado, para no hacer todo el bucle

[Neftali [Germán.Estévez]]

Con esto te debería valer:

Código Delphi [-]
var
  i, j: Integer;
begin
  j := -1;
  for i := 0 to (ListBox1.Count - 1) do begin
    if AnsiStrLIComp(PChar(ListBox1.Items[i]), PChar(Edit1.Text), Length(Edit1.Text))=0 then begin
      j := i;
      Break;
    end;
  end;
  ListBox1.ItemIndex := j;

Te selecciona el primero que coincida o no te selecciona ninguno si no hay elemento coincidente.

Si cambias AnsiStrLIComp (case-insensitive) por AnsiStrLComp (case-sensitive) conseguirás que distinga o no por may/min.

[mblascog]

Muchas gracias, funciona perfecto, aunque para optimizarlo, ya que la lista contiene muchos ítems, está bien controlar que cuando se ha pasado de largo salga del bucle

[mblascog]

Para optimizar había pensado con este if:

Código Delphi [-]
if copy(Listbox1.Items[i], 1, length(edit1.text) > edit1.text then
break

Pero no funciona, pues Ló es más grande que Lu, con esto quiero decir que, si por ejemplo busco Lucena no lo encuentra, dado que antes encuentra López y al ser mayor, sale del bucle

[Neftali [Germán.Estévez]]

Empezado por mblascog

Muchas gracias, funciona perfecto, aunque para optimizarlo, ya que la lista contiene muchos ítems, está bien controlar que cuando se ha pasado de largo salga del bucle

Creo que he puesto el break dentro del bucle.