Pesquisa de Texto por Letra em TstringList (Filtro)

Delphi

16/08/2007

Ola amigos preciso pesquisa numa stringList palavras comercadas por VAP ?

Na rotina abaixo faço uma pesquisa por palavra, existe uma forma de fazer a pesquisa parcial, comerçadas por uma palvra ou letra ?



procedure TForm1.Button1Click(Sender: TObject);
Var
Lista: TStringList;
begin
Lista := TStringList.Create;
try
Lista.Add(´Linux Baby´);
Lista.Add(´Delphi´);
Lista.Add(´Power by Delphi´);
if Lista.IndexOf(´Linux Baby´) > -1 then
//if Lista.IndexOf(´xxx´) > -1 then
ShowMessage(´Resultado Encontrado.´)
else
ShowMessage(´Nenhum resultado Encontrado.´)
finally
Lista.Free
end;
end;



abs


Firekiller_am

Firekiller_am

Curtidas 0

Respostas

Firekiller_am

Firekiller_am

16/08/2007

Ola amigos poster resolvido aqui

http://www.activedelphi.com.br/forum/viewtopic.php?p=195340#195340

abs


GOSTEI 0
POSTAR