List Box

12/05/2003

1

Eu tenho um listbox que está preenchido da seguinte forma
C077709 MARIA JOSE DE ASSUNÇÃO
C078961 MAURO CIQUEIRA MUNHOZ DA ROCHA
....
Como a lista é muito grande gostaria de fazer algo para facilitar a procura de um nome, por exemplo:
eu quero procurar a MARIA, eu sei que começa com ´M´...
Quero que quando eu teclar a letra ´M´ ele selecione no listbox pra mim o primeiro nome que ele encontrar com ´M´...
Será que vc pode me ajudar???


Responder

Posts

12/05/2003

Vmotta

coloque esse código no onChange do Edit1.text, isso localizará o primeiro nome que contenha oq estiver digitado no edit1 desconsiderando aquele código inicial ´C077709´, caso queira que localize texto contido nesse código também mude o 9 para 0
:wink:
var
i: integer;
begin
for i:= 0 to ListBox1.Items.Count do
if (pos(edit1.text,ListBox1.Items.Strings[i]) >= 9) then
begin
ListBox1.Selected[i] := true;
abort;
end;
end;

T+
Vitor Hugo


Responder