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