Fórum Pesquisa de Texto por Letra em TstringList (Filtro) #344583

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;