VPF::Работа с ComboBox - Форум программистов

Alex221

Дата 25.4.2012, 22:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 25.4.2012

Репутация: нет
Всего: нет

Имеются 5 компонентов Combobox. Каждой строке в них нужно присвоить определенное числовое значение. Например,
Combobox «Транспорт»:  самолет:=2000; поезд:=1500; автобус:=1500,
Combobox «Проживание»:  отель 5*:=3500; отель 4*:=2500; отель 3*:=1500 и т.д.
Combobox «Питание»:  3 раз. шведский стол:=1000; 3 раз. меню-заказ:=800; только завтрак:=500,
Затем числовые значения  выбранных строк нужно сложить и полученный результат умножить на значение, находящееся в строке Edit.

Помогите пожалуйста, курсовик горит. Задача, возможно, не сложная, просто никогда не сталкивался с Delphi. Заранее спасибо.

Данкинг

Дата 25.4.2012, 23:15 (ссылка)

(голосов:2)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Пройдись в цикле по спискам каждого комбика. Т.е. примерно так:

Код


 var i,c:integer;
begin
 c:=0;
 for i:=0 to combobox1.Items.Count -1 do
  begin
   if combobox1.Items.Strings [i]='самолёт' then inc(c,2000);
   if combobox1.Items.Strings [i]='поезд' then inc(c,1500);
   {и так далее по всем комбикам}
  end;
  c=c*strtoint(edit1.text);
end;

--------------------

There's nothing left but silent epitaphs.

northener

Дата 25.4.2012, 23:57 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

Цитата(Alex221 @ 25.4.2012, 22:18

)

Каждой строке в них нужно присвоить определенное числовое значение. Например,
Combobox «Транспорт»: самолет:=2000; поезд:=1500; автобус:=1500

Код


  ComboboxTransport.Items.AddObject('самолет',TObject(2000));
  ComboboxTransport.Items.AddObject('поезд',TObject(1500));
  ComboboxTransport.Items.AddObject('автобус',TObject(1500));
...
  Price:=(Integer(ComboboxTransport.Objects[ComboboxTransport.ItemIndex])+Integer(Combobox...)+Integer(Combobox...)+Integer(Combobox...)+Integer(Combobox...))*StrToFloat(Edit1.Text);

P.S.
Что-то мне кажется, что подобную задачу нужно было бы решать не на Делфи, а на каком-нибудь языке предназначенном для выполнения на странице всемирной паутины. А если это учебная задача, то можно было бы придумать что-то более привычное для Дельфи.

P.P.S.
"курсовик горит". Если не успел погасить, то вспомните дедушку Крылова. smile

Это сообщение отредактировал(а) northener - 26.4.2012, 11:38

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Alex221

Дата 26.4.2012, 09:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 25.4.2012

Репутация: нет
Всего: нет

Цитата

Что-то мне кажется, что подобную задачу нужно было бы решать не на Делфи, а на каком-нибудь языке предназначенном для выполнения на странице всемирной паутины. А если это учебная задача, то можно было бы придумать что-то более привычное для Дельфи.

Я согласен, что тут более уместно было бы написать сайт, но, увы, преподавателем четко поставлена такая задача для курсовой, мы люди подневольные))

Всем большое спасибо за помощь!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »