Про ComboBox

← →
Naganov (2006-03-20 10:20) [0]

Извиняюсь за такой глупый вопрос, что-то совсем отупел, помогите, пожалуйста. Смысл вопроса таков:
бросил на форму ComboBox, Label и Button.
В свойстве Items у ComboBox"а поместил 2, 3.5 и 7.0
Обработчик нажатия кнопки:
procedure TForm1.Button1Click(Sender: TObject);
var
n: integer;
begin
n:=StrToInt(ComboBox1.Text);
n:=100/n;
Label1.Caption:=IntToStr(n);
end;
А при нажатии пишет "ComboBox1 is not valid integer value"

← →
vovnuke © (2006-03-20 10:24) [1]

StrToInt

← →
Leonid Troyanovsky © (2006-03-20 10:29) [2]

> Naganov (20.03.06 10:20)

> Извиняюсь за такой глупый вопрос, что-то совсем отупел,

Для того, чтобы извинить, нужно оправдание.
Кроме того, здесь не один вопрос. И часть информации
либо искажена, либо вовсе не приведена.

--
Regards, LVT.

← →
API © (2006-03-20 10:42) [3]

А при нажатии пишет "ComboBox1 is not valid integer value"

А что в самом ComboBox1 в момент нажатия вписано?

В качестве совета:

1. Установите для ComboBox1 свойство Style=csDropDownList
2. Перепишите:

procedure TForm1.Button1Click(Sender: TObject); var n: integer; begin if (ComboBox1.ItemIndex = -1) then raise Exception.Create("Выберите значение из списка"); n:=StrToInt(ComboBox1.Text); n:=100/n; Label1.Caption:=IntToStr(n); end;

← →
Naganov (2006-03-20 10:43) [4]

>Leonid Troyanovsky © (20.03.06 10:29) [2]

1. Мне трудно придумать оправдание к такому вопросу.
2. Информацию не утаивал, все как на духу.
3. Вопрос один: почему не работает?

← →
Leonid Troyanovsky © (2006-03-20 10:47) [5]

> API © (20.03.06 10:42) [3]
> А при нажатии пишет "ComboBox1 is not valid integer value"

> А что в самом ComboBox1 в момент нажатия вписано?

ComboBox1, вестимо :)

--
Regards, LVT.

← →
Leonid Troyanovsky © (2006-03-20 10:51) [6]

> Naganov (20.03.06 10:43) [4]

> 1. Мне трудно придумать оправдание к такому вопросу.

И какой толк от ответов, если даже с вопросом сложности?

> 2. Информацию не утаивал, все как на духу.

Приведенный пример даже компилироваться не должен, однако,
утверждается, что

> А при нажатии пишет "ComboBox1 is not valid integer value"

> 3. Вопрос один: почему не работает?

Что "не работает"?

--
Regards, LVT.

← →
Naganov (2006-03-20 10:53) [7]

>API © (20.03.06 10:42) [3]

Большое спасибо Вам за помощ, Ваш код работает с целами числами, помещенными в с-ве Items, но выдает такую же ошибку, если туда поместить дробные числа ( например 2.5).

← →
*!*!* (2006-03-20 10:54) [8]

{n:=100/n;} так кстати делать нельзя
n- целое, с ним только +, -, *, div, mod

← →
Naganov (2006-03-20 11:00) [9]

>*!*!*

Еще раз прошу прощения, может быть не совсем удачно, но я этот простейший пример привел для того, чтобы была понятна суть моей проюлемы.

> Naganov (20.03.06 11:00) [9]

> я этот простейший пример привел для того, чтобы была понятна
> суть моей проюлемы.

Нужно привести не простейший пример, а пример того,
что вызывает проблему. Например,

Почему у меня возникает ошибка: "2.5" is not valid integer value
при выполнении кода ShowMessage(IntToStr(StrToInt("2.5"))); ?

Ну, или, при большей степени осмысления:
Почему 2.5 не является целым числом?

--
Regards, LVT.

Про ComboBox Найти похожие ветки