Autocompletar en un Edit

[ramiretor]

Holas:

Bueno como te dije me imagino que tienes un TDBEdit ( o TEdit) y un TDBGrid que mostrará los resultados, conectas un TDataSource al Tquery y al DBGrid. En el evento onkeyPress del Edit escribirías algo como:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin

with query do
begin
Close;
Clear;
SQL.ADD('select "nombrecampos" from "nombretabla" where
"nombrecampo" like ' + edit1.text)
Open;

end;

end;

y eso es todo. Bueno aqui me parece que el problema es que no toma en cuenta el primer caracter, por lo que te aconsejo le eches un ojo al metodo onKeydown para que lo tome en cuenta. Recuerda tb que al query se le puede pasar ese valor como parámetro. Ahh y una cosa mas para que los campos no se te repitan, necesitas poner despues del Select la palabra distinct y seguir con la lista de campos.

Salu2 y espero te sirva


;