Автоматический выбор ItemIndex в ComboBox

[Kib]

В общем есть ComboBox. У него параметр Style стоит на csOwnerDrawFixed(чтоб в него текст нельзя было вводить) и items - "Домашний" - с индексом 0, "Мобильный" с индексом 1. Так же есть переменная Vid: string. Скажем нужно чтоб принажатии кнопки брался текст из Vid, например "мобильный" и у ComboBox'а ставилось ComboBox1.ItemIndex:=1 или 0 если "Домашний".
"Домашний" и "Мобильный" в данном случае как пример, item'ов много и они могут пополнятся, поэтому делать обычными условиями не пойдет...

Заранее благодарю за содействие.

[Juggernaut]

Помоему и обычными условиями вполне возможно. Изложите пояснее, а то я например не до конца все понял.

[spamer]

Можете конкретней сказать, что надо сделать?

Если правильно понял, то

procedure TForm1.Button1Click(Sender: TObject);
var
  Vid : String;
begin
Vid:='Мобильный';
if Vid='Мобильный' then
  ComboBox1.Text:= ComboBox1.Items[1];
end;

[Juggernaut]

Вам нужно чтоб при нажатии на кнопку обработчик переносил из выбранного пункта в ComboBox текст в переменную?

[Kib]

Как бы это лучше объяснить?.. Попробую переформулировать вопрос проще:
Например в списке ComboBox есть слово "Мобильный", как узнать его индекс?

[Ntlegend]

простым перебором строк:

var i:integer;
begin
for i:=0 to Combobox1.Items.Count-1 do
 if ComboBox1.Items.Strings[i]='Мобильный'
 then break;
if i>=Combobox1.Items.Count
 then exit;
ShowMessage(IntToStr(i));

[Kib]

И в правду все гениальное - просто... Согласен, в начале я немного загнул с вопросом . Просто не сразу сообразил как это объяснить попроще. Ну вот то что я хотел получить в итоге:

var
    vid: string; 
    i:integer;

begin

vid:='Мобильный';

for i:=0 to Combobox1.Items.Count-1 do
 if ComboBox1.Items.Strings[i]=vid
 then break;
if i>=Combobox1.Items.Count
 then exit;

Combobox1.ItemIndex:=i;

и получил ))
Всем спасибо за помощь.

[Tiger_351]

Прошу помощи!!!!!! У меня такой вопрос! Как можно при выборе значение в ComboBox выводить результат в StringGrid? Например: при выборе слова "один" выводилась 1 колонка, при "много"-3 колонки?

[ReportCube]

А почему нельзя сделать так:

Combobox1.ItemIndex := Combobox1.Items.IndexOF(Vid)