Problema con ComboBox

[[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:

Código Delphi [-]
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