RE:Posicionar un combo segun lo que escribo en ed
La forma fácil sería:
ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(Edit1.Text);
El problema es que IndexOf sólo busca cadenas completas, y supongo que tu buscas el primer elemento que empiece con la cadena en el cuadro de texto, así que en tal caso no queda otra más que recorrer los elementos del combo hasta encontrar la primera ocurrencia:
procedure TForm1.Edit1Change(Sender: TObject);
var
i, n: integer;
s: string;
begin
s := Edit1.Text;
if s <> '' then
with ComboBox.Items do
begin
n := Length(s);
for i := 0 to Count - 1 do
if AnsiCompareText(s, Copy(Strings[i], 1, n)) = 0 then
begin
ComboBox.ItemIndex := i;
break;
end;
end
end;
Espero que te sirva.
Ernesto De Spirito
http://www.latiumsoftware.com/es/index.php