Pages

terça-feira, 24 de maio de 2011

Source - Buscar itens em uma ListBox

Para buscar itens em uma ListBox é bem fácil baixe a source e confira.


Source:

procedure TForm1.buscaKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i,j: integer; word,word2: String;
begin
        if busca.Text <> '' then
        begin
        lista1.Clear; //limpa a lista
        word:= '';
        for j:=1 to length(busca.Text) do
        begin
                word:= word + busca.Text[j];
        end;

        for i:=0 to lista.Items.Count-1 do
        begin
                word2:= '';
                for j:=1 to length(busca.Text) do
                begin
                   word2:= word2 + lista.Items.Strings[i][j];
                end;

                if word = word2 then
                begin
                        lista1.Items.Add(lista.Items.Strings[i]);
                end;
        end;
        end
         else
        begin
         lista1.Items:= lista.Items;
        end;
end;

Legenda:

  • Busca: TEdit;
  • Lista1: TListBox;
  • Lista: TListBox;

Nenhum comentário:

Postar um comentário