¿Como buscar y Eliminar en Un ListBox?
 

Hola a todo los del foro, Tengo un Listbox lleno de datos por ejemplo:

1
2
3
4
n..

Lo que deseo es que a travès de un Edit introducir por ejemplo :

El 2, que lo busque y lo elimine de Listbox, introduciendo el 2 el listbox quedaria asì.

1
3
4
5
n..

disculpen que lo ponga tan al detalle pero de verda lo necisito, el que me pueda ayudar se lo agradeceria.

__________________________

Un saludo...

Hola:

Las búsquedas y borrados las efectúas sobre el objeto Items del ListBox, mediante sus métodos IndexOf ('cadena a buscar') y Delete (Índice a borrar). Sería así:

with ListBox.Items do Delete (IndexOf(Edit1.Text));

Un saludo

Gracias andres1569 el codigo que me facilitaste, funciona perfectamente.
__________________

Un saludo...

lixbox delphi
 

alguien me puede pasar el codigo para eliminar el ultimo dato de un lixbox

ayuda
 

me puedes ayudar con el codigo de eliminar el ultimo dato de un lixbox

Con esta línea lo harás:

ListBox1.Items.Delete( ListBox1.Items.Count -1 );

Salu2.

Ramón.

y si queremos borrar todos los items de un lisbox que comiencen por el texto 'tema' ???

Ej :
tema1
tema444
tema 566
articulos
articulos2

Borraria los 3 primeros elementos.
Gracias

Hola...

Podrías hacer algo como:

Código Delphi [-]
begin
  for I := Pred(ListBox1.Items.Count) downto 0 do
    if Pos('tema', ListBox1.Items[i]) = 1 then
      ListBox1.Items.Delete(I)
end;

Saludos...

Gracias, me sirve

Borrar elemento selecionado
 

Y si yo quisiera borrar un elemento seleccionado de la listbox.

Como sería el codigo.:confused:

Hola.
Delphi usando VCL:

Código Delphi [-]
...
begin
  if ListBox1.ItemIndex <> -1 then
    ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

Delphi usando API de Windows:

Código Delphi [-]
...
begin
  if SendMessage(ListBox1.Handle,LB_GETCURSEL,0,0) <> -1 then
    SendMessage(ListBox1.Handle, LB_DELETESTRING,
                SendMessage(ListBox1.Handle,LB_GETCURSEL,0,0), 0);
end;

Saludos :)