Избавиться от нагромождения IF

[fezilk25]

Здравствуйте!

На форме есть компонент ComboBox1, и при выборе в нём какого-либо пункта (например, "2 мин.") должен изменяться интервал у Timer1.

Можно, конечно, сделать с помощью IF, но кода думаю будет слишком много (значений в ComboBox'е около 15).

if ComboBox1.ItemIndex = 1 then
  Timer1.Interval := 10000;
if ComboBox1.ItemIndex = 2 then
  Timer1.Interval := 40000;
if ComboBox1.ItemIndex = 3 then
  Timer1.Interval := 70000;

Существует ли какая-то конструкция для упрощения кода?

PS. "Похожие темы" - жесть..

[Скандербег]

Загнать в свойства Objects ComboBox1'а значения интервалов

ComboBox1.Items.AddObject('1 мин', TObject(60000));
ComboBox1.Items.AddObject('2 мин', TObject(120000));
...

При выборе из списка:

Timer1.Interval := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);

[mihali4]

А CASE..OF ?

[Скандербег]

А если элементов будет штук двести ?
Да и чем, собственно, будет отличаться этот case в ситуации автора от множества if'ов?

[Genco]

case опрятнее. Эмпирическая формула,зависящая от числа тоже вариат. Или массив значений, но его тоже просто так не заполнишь. Можно написать в случае 200+ значений кодогенератор простейший и дальше Ctrl+V. Но что-то мне кажется,что у ТС их существенно мешьше.

[Stilet]

А если элементов будет штук двести ?

А массивы еще не отменили

[_SERGEYX_]

(например, "2 мин.")

А если элементов будет штук двести ?

Ну, и пиши значение в комбобокс в секундах, а потом

 Timer1.Interval := strtoint(ComboBox1.Text) * 1000;

И всё!

[fezilk25]

Спасибо всем

[Скандербег]

А массивы еще не отменили

Не стоит забывать, что Items в TCombobox'е - это и есть массив.

[Stilet]

Не стоит забывать

А я не против, но откуда-то этот item нужно наполнять? Вот и пусть исходное (числа) хранятся в массиве целых