Buscar por:

Procurando strings numa listbox

Código

{Quando pretendemos procurar uma determinada palavra no Help de um programa, escrevemos as primeiras letras da palavra a procurar e o Help vai selecionar a palavra mais parecida com a que digitamos.Este pequeno exemplo demonstra como fazer isso em Delphi. Primeiro deve criar um projeto novo, inserir um TEdit(Edit1) e um ListBox(ListBox1), depois pode inserir várias strings na ListBox. No evento onChange do Edit1 deve colar o código abaixo.Quando correr o programa deve digitar no Edit as primeiras letras da palavra a procurar, e repare como a palavra mais parecida é automaticamente selecionada na ListBox. }

procedure TForm1.Edit1Change(Sender: TObject); 

var 

S : Array[0..255] of Char; 

begin 

StrPCopy(S, Edit1.Text); 

with ListBox1 do 

ItemIndex := Perform(LB_SELECTSTRING, 0, LongInt(@S)); 

end;