Algo acerca de ListBox
 

Holas amigos:

Como podria corregir el siguiente error. 'list index out of bounds (-1)'

Esto me ocurre cuando no se selecciona ningun items del listbox y el codigo que me genera el error es este:

Código Delphi [-]
procedure TFindForm.BitBtn2Click(Sender: TObject);
var
 Tem : string;
begin
 Tem := Copy(ListBox1.Items[ListBox1.ItemIndex],1,2);
end;

Alguien podria orientarme como corregirlo.
De antemano muchas gracias.

Saludos Ledian

Hola
Perdona si no estoy en lo correcto, pero creo que el ItemIndex empieza en 0 por esta razon dice el error que esta fuera de limites (bounds).
Es solo una sugerencia.
Saludos

El error lo tienes por que al momento de llamar a ListBox1.ItemIndex no tienes seleccionado ningún item en este o no contiene items por lo que el valor de la propiedad es -1...


Saludos...

Error
 

Ok es verdad. Pero como podre corregirlo.
Como puedo saber si no han seleccionado ningun items ?

gracias de todas formas

Hola,

Código Delphi [-]
  if (ListBox1.ItemIndex <> -1) then
  begin
    // Hay algún elemento seleccionado
  end;

Probelma resuelto
 

A si mismo ...
Todo me funciona bien ahora
Muchas gracias a todos.

hasta un proximo encuentro !!!

Saludos
Ledian