Buscar por:

Fazendo busca em uma tlistbox usando um tedit

Código

// -> Coloque no Uses: strUtils

Essa função serve fazer uma simples busca e selecionar o texto que o usuário escreveu em um Tedit;

A TListBox tem o name de Clb1;

procedure TForm2.Edit1Change(Sender: TObject);

var i: integer; amigo: string;

   begin

     amigo:=Edit1.Text;

     if Edit1.Text <> '' then

       begin

       for i:=0 to Clb1.Items.Count-1 do

         begin

           if ansicontainsstr(uppercase(clb1.Items.Strings[i]),uppercase(amigo)) then

             begin

               clb1.Selected[i]:=True;

               Edit1.Color:=clWindow;

             exit;

          end;

      end;

   Edit1.Color:=clRed;

   Beep;

end;

end;

Espero ter ajudado.