Pesquisa eliminatoria em um List
Salve gente, como que eu posso faze o seguinte:
tenho um listbox com diversos items, e nume edit, por exemplo, o texto que eu digita nele, no caso um ´a´, se tiver dois itens sem ´a´, Deleta da lista esses dois items, e assim indo, letra por letra, mas preciso que verifique no meio da frase, consegui uma rotina que verifica so a primeira letra.
Desde ja, um abraco, Henry.
tenho um listbox com diversos items, e nume edit, por exemplo, o texto que eu digita nele, no caso um ´a´, se tiver dois itens sem ´a´, Deleta da lista esses dois items, e assim indo, letra por letra, mas preciso que verifique no meio da frase, consegui uma rotina que verifica so a primeira letra.
Desde ja, um abraco, Henry.
Henry
Curtidas 0
Respostas
Fabio.hc
27/05/2004
Tente assim:
procedure TForm1.Button1Click(Sender: TObject);
var X:Integer;
begin
ListBox1.MultiSelect:=True;
for X:=0 To ListBox1.Count -1 do
ListBox1.Selected[x]:=Pos(Edit1.Text,ListBox1.Items[X])=0;
ListBox1.DeleteSelected;
end;GOSTEI 0
Henry
27/05/2004
Boa, valeu mesmo Fabio.....
GOSTEI 0