Pesquisa incremental em listbox

Question

Como posso fazer uma pesquisa parcial em um listbox que � carregado de um arquivo texto???Ex:[color=red:ea84e62718]Dados no listbox:[/color:ea84e62718][color=green:ea84e62718]Ant�nio Verg�oSuzana Souz...

Lucianols · Answer

Eu faria assim, mas tem maneiras mais simples....

private
Itens: TStringList; //aqui guardar todos os itens da lista

procedure Filtrar(Sender: TListBox; Filtrar: String);
var
I: Integer
begin
if Filtrar=�� then
Exit;
Sender.Items.Text := Itens.Text; //Faz a lista ser preenchida com todos os dados
while I < Sender.Items.Count do
begin
if Pos(Filtrar, Sender.Items.Strings[I]) = 0 then
Sender.Items.Delete(I)
else
Inc(I)
end;
end;

Lucianols · Answer

esqueci uma coisa antes do while fa�a o I:=0;...

Emir Neto · Answer

Obrigado pela dica, mas meu problema � um pouco mais complexo, veja por que?

Tenho um arquivo texto (ao inv�s de usar banco de daods estou utilizando um arquivo de texto por limita��es de acesso da m�quina)

Este arquivo de texto salva os dados do listview, ou seja, se eu remover os que n�o tem a parte da palavra, quando for fazer novas pesquisar eles n�o estar�o mais no arquivo de texto.
Ser� que terias uma fun��o que funcionasse assim???

F�rum Pesquisa incremental em listbox #254857