¿Como buscar y Eliminar en Un ListBox?

[danytorres]

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...

[andres1569]

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

[danytorres]

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

Un saludo...

[bothy]

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

[bothy]

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

[rrf]

Con esta línea lo harás:

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

Salu2.

Ramón.

[petete2008]

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

[maeyanes]

Hola...

Podrías hacer algo como:


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



Saludos...

[petete2008]

Gracias, me sirve

[Esquivel]

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

Como sería el codigo.:confused:

[ecfisa]

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

Como sería el codigo.:confused:
Delphi usando VCL:

...
begin
if ListBox1.ItemIndex <> -1 then
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;


Delphi usando API de Windows:

...
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 :)