про Combobox

[undead92]

Здраствуйте!никак непойму как сделать...

У меня есть комбобох и в нем допустим 3 строки(Шкаф,Кровать,Табурет)...
и есть кнопка и лабел.
задача таковы:

при нажатии на кнопку если в комбе выбран шкаф то в лабел вывести такой то текст,если выбрана кровать то другой,если табурет то третий...

запутался,максимум получилось тока с одной строкой.


var
text12string;
begin

text12:=combobox1.Items[0];
text12:='какойто текст';
label1.caption:=text12

[Hacker19_90]

ItemIndex проверяй!

[undead92]

а как мне мой текст привязать к строчке комбобокса?

тоесть 3 разных текста к 3строкам

[Hacker19_90]

Допустим КомбоБОКС заполнен таким образом

кровать
стол
стул

тогда
обработчик кнопки должен быть таким

case ComboBox1.ItemIndex of
    1: label1.Caption := ComboBox1.Item[1]
   и тд

Ток проверь а то делфи у меня под рукой нет

[undead92]

а каким образом в лабел будет заноситься МОЙ ТЕКСТ,который привязан к списку.

кровать = первый текст
стол = второй текст
стул = третий текст

В лабел заносится должны именно тексты!по выбранному в списке.Тоесть выбрав стол и нажав на кнопку,в лабел должен высветиться второй текст

[Hacker19_90]

а каким образом в лабел будет заноситься МОЙ ТЕКСТ,

label1.Caption := ComboBox1.Item[1]

[undead92]

так занесется то кровать стол или стул?разве нет

[Hacker19_90]

А надо что??
Если надо не то что в комбе! то в case измените

[undead92]

кровать = первый текст
стол = второй текст
стул = третий текст

В лабел заносится должны именно тексты!по выбранному в списке.Тоесть выбрав стол и нажав на кнопку,в лабел должен высветиться второй текст


Как сделать?

[phomm]

о мой бох, ну создайте массив строк с индексацией = количеству строк в комбобоксе(т.е. от 0 до Combobox1.items.count -1 ) , и тогда в обработчике OnChange комба выводите так текст :
label1.caption := mas[combobox1.itemindex];

упд1.про case вообще молчу

упд2. ах да, политкорректность, если это ваши самые первые заняти по программированию, то берите case, не ошибетесь, примерно так :

case combobox1.itemindex of
0:label1.caption := 'text#1';
1:label1.caption := 'text#2';
2:label1.caption := 'text#3';
end;