Pesquisa no Combobox (?)

Delphi

11/04/2005

Tenho um ComboBox e quero q ao usuário digitar algo, que ele abra automaticamente e aponte o 1º item q tiver o caractere q ele digitou. Eu sei q deve-se fazer uma pesquisa, mas não sei como acessar os itens linha-a-linha. Também não sei como comparar apenas o 1º caractere do item com o 1º digitado, o 2º com o 2º, ...

Alguém poderia me ajudar?


Sérgio Gobbo

Sérgio Gobbo

Curtidas 0

Respostas

Eliane Dorr

Eliane Dorr

11/04/2005

Eu tenho uma pesquisa da seguinte maneira: dbgrid, combobox e edit. Criei os seguintes eventos e funciona legal. Dou um clique na coluna do dbgrid para informar através de que campo eu quero a consulta. Aí no edit eu informo o dado a ser pesquisado e o ponteiro vai posicionando conforme vou digitando.

procedure TFDuplicatas.DBGrid1TitleClick(Column: TColumn);
begin
(DMDupa.CDSDuplicatas as TClientDataSet).IndexFieldNames:=Column.Field.FieldName;
DBGrid1.Realign;
ComboBox1.Text:=Column.Field.FieldName;
Edit1.Text:=´´;
Edit1.SetFocus;
end;

procedure TFDuplicatas.Edit1Change(Sender: TObject);
begin
(DMDupa.CDSDuplicatas as TClientDataSet).FindNearest([Edit1.Text]);
end;

Espero ter ajudado.


GOSTEI 0
POSTAR