компонент ComboBox - Помощь студентам

bbk_serg · 10.07.2009, 12:17

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

Подскажите ка сделать так, чтобы при выборе первого итемса в комбобоксе, А:=2, а при выборе другого итемса А:= 4.

Заранее СПАСИБО!!!

Daramant · 10.07.2009, 12:29

Например вот так:

Код:

  case ComboBox1.ItemIndex of
    0: a := 2;
    1: a := 4;
  end;

P.S. И лучше свойство ComboBox1.Style установить в csDropDownList, для того, чтобы нельзя было ввести другое значение.

bbk_serg · 10.07.2009, 12:45

Это я сделал, СПАСИБО, вот еще вопрос
ti:=StrToInt(Edit13.Text);
case ComboBox2.ItemIndex of
0: k := 1;
1: k := 2;
2: k := 4;
3: k := 8;
4: k := 16;
5: k := 6;
end;
at:=ti/k;

Как результат at вывести в Edit1

danekne · 10.07.2009, 12:51

edit1.text:=inttostr(k);

Daramant · 10.07.2009, 12:59

Код:

edit1.text := FloatToStr(at);

P.S. at имеет тип real, я так понял.

bbk_serg · 10.07.2009, 13:08

edit1.text := FloatToStr(at);
работает
Огромное СПАСИБО!!!!

10.07.2009, 12:17	#1
bbk_serg Пользователь Регистрация: 15.12.2008 Сообщений: 62	компонент ComboBox Здраствуйте!!! Подскажите ка сделать так, чтобы при выборе первого итемса в комбобоксе, А:=2, а при выборе другого итемса А:= 4. Заранее СПАСИБО!!!

10.07.2009, 12:29	#2
Daramant Форумчанин Регистрация: 06.01.2009 Сообщений: 340	Например вот так: Код: `case ComboBox1.ItemIndex of 0: a := 2; 1: a := 4; end;` P.S. И лучше свойство ComboBox1.Style установить в csDropDownList, для того, чтобы нельзя было ввести другое значение. Истинный успех – это то, что Вы сделали в сравнении с тем, что могли бы сделать. Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили "Титаник". Последний раз редактировалось Daramant; 10.07.2009 в 12:31.

10.07.2009, 12:59	#5
Daramant Форумчанин Регистрация: 06.01.2009 Сообщений: 340	Код: `edit1.text := FloatToStr(at);` P.S. at имеет тип real, я так понял. Истинный успех – это то, что Вы сделали в сравнении с тем, что могли бы сделать. Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили "Титаник". Последний раз редактировалось Daramant; 10.07.2009 в 13:08.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Delphi компонент ComboBox	severin	Общие вопросы Delphi	12	08.10.2010 20:19
ComboBox	)Игнат(	Компоненты Delphi	3	19.02.2008 16:59
ComboBox	tat-besidovska	Microsoft Office Excel	8	04.02.2008 08:52
Combobox	Yana	Помощь студентам	5	23.12.2007 02:16
Не могу внести строку из combobox в combobox!?	tacer	Помощь студентам	1	30.11.2007 19:45

10.07.2009, 12:45	#3
bbk_serg Пользователь Регистрация: 15.12.2008 Сообщений: 62	Это я сделал, СПАСИБО, вот еще вопрос ti:=StrToInt(Edit13.Text); case ComboBox2.ItemIndex of 0: k := 1; 1: k := 2; 2: k := 4; 3: k := 8; 4: k := 16; 5: k := 6; end; at:=ti/k; Как результат at вывести в Edit1

10.07.2009, 12:51	#4
danekne Форумчанин Регистрация: 12.02.2007 Сообщений: 360	edit1.text:=inttostr(k);

10.07.2009, 13:08	#6
bbk_serg Пользователь Регистрация: 15.12.2008 Сообщений: 62	edit1.text := FloatToStr(at); работает Огромное СПАСИБО!!!!