Fórum Pesquisa eliminatoria em um List #234609
27/05/2004
0
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
Curtir tópico
+ 0
Responder
Posts
27/05/2004
Fabio.hc
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;
Responder
Gostei + 0
27/05/2004
Henry
Boa, valeu mesmo Fabio.....
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)