Duda con un TlistBox(eliminar un Item!! )

[kye_z]

Buenas!!

os Expongo mi duda para ver si alguien me puede ayudar... :S k toy ahora mismo un poco cansado de pensar, y paso por aqui a ver si alguien me puede ayudar.

Duda:
tengo un TlistBox, y me interesa que despues de pulsar el botonEliminar me coja un item(el que tenga seleccionado) i me lo quite del listBox.
espero haver explicado bien mi duda... Os pongo mi trocito de codigo y a ver si alguien me puede hechar una mano...

 
procedure TfrmNouCampeonat.butEliminarClick(Sender: TObject);
begin
  if lbClassesSeleccionades.Items.count<>0 then begin
	lbClassesSeleccionades.Items.Delete( ); //Esto es lo que no enkuentro... 
  end;
end;

Supongo que con el delete ya tendre bastante aunque el integer no se exactamente como sacarlo.



Muchissimas GRACIAS de antemano!!!

[kye_z]

Encontre ahora mismo la solcion...

  
procedure TfrmNouCampeonat.butEliminarClick(Sender: TObject);
begin
  if lbClassesSeleccionades.Items.count<>0 then begin
	lbClassesSeleccionades.Items.Delete(lbClassesSeleccionades.ItemIndex);
  end;
end;

Murphy tenia razon en decir que cuando uno plantea una duda, seguidamente al volver al problema encuentra la solucion... pues a mi me pasa igual.... jejeje

muchas gracias por si alguien estaba intentando contestarme.......

[[Lepe]]

Un pequeño detalle:
Que haya elementos en la lista no significa
que hay uno seleccionado.

A la vez propongo una forma rápida de borrar todos los elementos
con el mismo código, si no hay seleccionado ninguno,borramos el ultimo.

Código Delphi [-]
procedure TfrmNouCampeonat.butEliminarClick(Sender: TObject);
begin
  with lbClassesSeleccionades do
 if itemindex <>-1  then begin
  Items.Delete(ItemIndex);
  end
  else
    if items.count>0 then 
      items.delete(items.count-1);
end;

Saludos

[roman]

Hola Lepe,

Ayer estaba a punto de señalar algo parecido en cuanto a lo de verificar qe ItemIndex fuese distinto de -1 pero observé que, al menos en Delphi7, el método Delete no falla aun con Delete(-1) de manera que no es necesaria la comprobación.

// Saludos