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

RomaWise

Дата 2.10.2014, 07:24 (ссылка)

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

Загрузка ...

Новичок

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

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

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

Я сделал так:

Код


if ComboBox1.Items = 50 then a:=5 else exit;
if combobox1.Items = 80 then a:=8 else exit;
if combobox1.Items = 100 then a:=10 else exit;

Но делфи упорно выдает ошибку: Incompatible types.

Почему, не пойму. Подскажите, добрые люди.

Добавлено через 13 минут и 8 секунд
Сделал все, просто походу вообще не в ту степь полез.

Vasya

Дата 2.10.2014, 10:23 (ссылка)

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

Загрузка ...

Шустрый

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

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

Combobox.items не может быть равно 50.
Combobox.items имеет свойство count, наверно вам нужно это.

Dremuk

Дата 2.10.2014, 10:31 (ссылка)

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

Загрузка ...

Новичок

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

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

if combobox1.text = '50' then a:=5 else
if combobox1.text = '80' then a:=8 else
if combobox1.text = '100' then a:=10 else exit;

Этот ответ добавлен с нового Винграда - http://vingrad.com

Poseidon

Дата 3.10.2014, 08:50 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Конкретно для этой задачи (именно конкретно для этой) можно сделать финт ушами:

Код


  a := StrToInt(ComboBox1.Text) div 10;

Добавлено через 3 минуты и 2 секунды

Цитата(RomaWise @ 2.10.2014, 07:24)

Код


if ComboBox1.Items = 50 then a:=5 else exit;
if combobox1.Items = 80 then a:=8 else exit;
if combobox1.Items = 100 then a:=10 else exit;

Кстати, при данном подходе код "уйдет" на Exit при любом раскладе, кроме "50". Т.е. не 80, не 100 не обработаются, т.к. сработает else на условии "= 50".

Это сообщение отредактировал(а) Poseidon - 3.10.2014, 08:50

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

v258

Дата 15.10.2014, 18:21 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

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

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

Правильнее было бы, видимо, так

Код


Case ComboBox1.ItemIndex of
  0 : a := 5;
  1 : a := 8;
  2 : a := 10;
end;

Это сообщение отредактировал(а) v258 - 15.10.2014, 18:52

Poseidon

Дата 15.10.2014, 20:59 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

v258, ага, особенно если ComboBox1 заполнен не во возрастанию или там есть еще и какие-нибудь "левые" значения. smile

Это сообщение отредактировал(а) Poseidon - 15.10.2014, 21:00

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

v258

Дата 16.10.2014, 09:34 (ссылка)

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

Загрузка ...

Шустрый

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

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

ну во-первых, автор же знает, что туда поместил, а во-вторых он в первом посте путаницу с типами устроил, да и вот это

Цитата(RomaWise @ 2.10.2014, 07:24

)

при выборе какого либо значения, он должен его присваивать переменной.

как-то не очень соответствует коду smile

Это сообщение отредактировал(а) v258 - 16.10.2014, 09:35

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