Problema con ComboBox

[MaMu]

Resulta que tengo una base de datos access, donde tengo almacenado muchos nombres, y para hacer la selección de los nombres, se me ocurrió poner un ComboBox, style csDropDown para que me permita escribir como si fuera un TEdit, y asi poder filtrarlos según con que letra empiecen, y que se me carguen estos filtrados como items. Por ejemplo, si escribo la letra "L", el ComboBox se me rellena con todos los nombres que empiecen con la letra "L", asi:


procedure TMiagenda.ComboBox6Change(Sender: TObject);
var nombre:string;
i:integer;
begin
//por las dudas lo vacío, sino me acumula los filtros
ComboBox6.Items.Clear;
nombre:=ComboBox6.Text;
if (nombre<>'')
then begin
ComboBox6.Items.Clear;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from amigos where nombre like '''+ComboBox6.Text+'%''');
ADOQuery1.ExecSQL;
ADOQuery1.Open;
//relleno los items con lo que se encontró
for i:=0 to ADOQuery1.RecordCount-1 do
begin
ComboBox6.Items.Add(ADOQuery1.FieldByName('nombre').AsString);
ADOQuery1.Next;
end;
end
else begin
//no encontró nada pues, la entrada esta vacia
ComboBox6.Items.Clear;
end;
end;


Pero me pasan algunas cosas que no se como solucionar:

- Cuando escribo algo, si es solo la primera letra, el ComboBox se rellena bien, con todos los nombres que empiezan por esa letra, pero cuando selecciono cualquiera de la lista, no me queda como ComboBox6.Text, por lo que me aparece vacío, y como unico item en la lista, y yo necesito ver la selección.

- Si yo escribo más de una letra, se invierte la escritura, asi:
* si escribo la letra "L" me aparecen todos los que empiezan por "L", pero supongamos que quiero los que empiezan con "LA", como ser Laura, Lautaro, etc. se me invierte la escritura, osea, escribo "L" seguido de eso la "A", pero me lo toma "AL" y asi suscesivamente, asumo que es porque utilizo el evento OnChange, entonces cada vez detecta el cambio.

Como podría hacerlo? se entiende lo que quiero hacer? Es un simple ComboBox que se rellene con los valores que filtro y que me permita seleccionarlos, la idea es no poner un TButton, sino hacerlo directamente.
Si alguien me puede dar una mano, le estare muy agradecido.

Saludos y Gracias

[Lepe]

Si tienes delphi 7 (en delphi 6 búscalo por si acaso) tienes un componente llamado TcomboboxEx que hace lo que quieres de una forma más cómoda. Cargas todos los elementos y ese tipo de filtro ya lo hace el ComboboxEx.

Si quieres seguir con lo que tienes hecho, ten cuidado con las mayúsculas y minúsculas que igual interfiere. Además, podrías usar el evento OnkeyUp (donde si tendrás el texto y la tecla que recién se ha pulsado.

Saludos

[MaMu]

Si tienes delphi 7 (en delphi 6 búscalo por si acaso) tienes un componente llamado TcomboboxEx que hace lo que quieres de una forma más cómoda. Cargas todos los elementos y ese tipo de filtro ya lo hace el ComboboxEx.

Si quieres seguir con lo que tienes hecho, ten cuidado con las mayúsculas y minúsculas que igual interfiere. Además, podrías usar el evento OnkeyUp (donde si tendrás el texto y la tecla que recién se ha pulsado.

Saludos

Y como seria un ejemplo usando ComboboxEx :confused: ?, nunca lo usé :eek: !!!.

Saludos;)

[Lepe]

Idéntico al combo normal, excepto que en el inspector de objetos, especificas las siguientes opciones:

AutoCompleteOptions = [acoAutoSuggest, acoAutoAppend, acoFilterPrefixes, acoUseTab]
ItemsEx.SortType = stText

Si le quieres poner sort a True, pues mejor, ordenados alfabéticamente.

La propiedad ItemEx, es para indentar los elementos, ponerle imágenes, etc. Para lo que quieres, no hace falta. No está de más que mires en la ayuda.

Saludos

[cHackAll]

Te dejo tu funcion corregida:

procedure TForm1.ComboBox6Change(Sender: TObject);
var
Count, Pos: Cardinal;
Text: string;
begin
Pos := ComboBox6.SelStart;
ComboBox6.Items.Clear;
Text := ComboBox6.Text;
if (Text <> '') then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from amigos where nombre like ''' + Text + '%''');
ADOQuery1.ExecSQL;
ADOQuery1.Open;
Count := ADOQuery1.RecordCount;
if Count > 0 then
begin
repeat Dec(Count);
ComboBox6.Items.Add(ADOQuery1.FieldByName('nombre').AsString);
ADOQuery1.Next;
until Count = 0;
ComboBox6.ItemIndex := 0;
ComboBox6.SelStart := Pos;
ComboBox6.SelLength := 255;
end;
end;
end;

PD: Si fuese otro el caso, se debería al tipo de datos utilizado; varchar en vez de char, esto causaría que tus campos tengan espacios al final del texto produciendo así ninguna ocurrencia.

Suerte!

[MaMu]

SOLUCIONADO

Muchas gracias a todos, logre hacerlo funcionar correctamente, aunque el procedimiento que utilice difiere un poco.

Saludos y gracias