Текущий архив: 2003.09.22;
Скачать: CL | DM;

Вниз

Помогите решите несложный вопрос о Combobox   Найти похожие ветки 

← →
Vitalygavrilov ©   (2003-09-09 06:52) [0]

Уважаемые мастера!

Ответьте пожалуйста, почему при переходах между RadioGroup3.ItemIndex у меня
в ComboBox3 список не изменяется,а добавляется?

Вот что я пишу:

procedure TForm5.RadioGroup3Click(Sender: TObject);
begin
if RadioGroup3.ItemIndex = 0
then
ComboBox3.Items.Clear;
ComboBox3.Items.Add("Не выбрано");
ComboBox3.Items.Add("20Б1");
ComboBox3.Items.Add("25Б1");

if RadioGroup3.ItemIndex = 1
then
ComboBox3.Items.Clear;
ComboBox3.Items.Add("Не выбрано");
ComboBox3.Items.Add("20Ш1");
ComboBox3.Items.Add("25Ш1");

if RadioGroup3.ItemIndex = 2
then
ComboBox3.Items.Clear;
ComboBox3.Items.Add("Не выбрано");
ComboBox3.Items.Add("20Б1");
ComboBox3.Items.Add("25Б1");
ComboBox3.Items.Add("25Б2");

if RadioGroup3.ItemIndex = 3
then
ComboBox3.Items.Clear;
ComboBox3.Items.Add("Не выбрано");
ComboBox3.Items.Add("20Ш1");
ComboBox3.Items.Add("25Ш1");
ComboBox3.Items.Add("30Ш1");

if RadioGroup3.ItemIndex = 4
then
ComboBox3.Items.Clear;
ComboBox3.Items.Add("Не выбрано");
ComboBox3.Items.Add("20Ш1");
ComboBox3.Items.Add("25Ш1");
ComboBox3.Items.Add("30Ш1");
ComboBox3.Items.Add("30Ш2");

end;

С уважением Гаврилов В.А.

---

← →
Hooch ©   (2003-09-09 07:01) [1]

if RadioGroup3.ItemIndex = 4 then
BEGIN (!!!)
ComboBox3.Items.Clear;
ComboBox3.Items.Add("Не выбрано");
ComboBox3.Items.Add("20Ш1");
ComboBox3.Items.Add("25Ш1");
ComboBox3.Items.Add("30Ш1");
ComboBox3.Items.Add("30Ш2");
END (!!!)

---

← →
Кщд   (2003-09-09 07:04) [2]

да и Clear вынести в самый верх :)

---

← →
Vitalygavrilov ©   (2003-09-09 08:07) [3]

для Hooch
if RadioGroup3.ItemIndex = 4 then
BEGIN (!!!)
ComboBox3.Items.Clear;
ComboBox3.Items.Add("Не выбрано");
ComboBox3.Items.Add("20Ш1");
ComboBox3.Items.Add("25Ш1");
ComboBox3.Items.Add("30Ш1");
ComboBox3.Items.Add("30Ш2");
END (!!!)

Скажите а после BEGIN (!!!) и END (!!!) ставить ненадо ";"

---

← →
Hooch ©   (2003-09-09 08:17) [4]

>> Vitalygavrilov ©
Это ВЫ чему ????

---

← →
Vitalygavrilov ©   (2003-09-09 08:25) [5]

для Hooch

Извените, Скажите а после BEGIN (!!!) и END (!!!) ставить надо
или ненадо.

---

← →
HolACost! ©   (2003-09-09 08:29) [6]

Книжки по Паскалю почитай!
После енда - нужно, но есть исключения для всех строк до оператора енд!
После бегина не нать!

---

← →
Hooch ©   (2003-09-09 08:30) [7]

:-) после END надо поставить ";" но главное, вот эту штуку "(!!!)" поле Begin и End писать не нужно ! :-)

---

← →
Vitalygavrilov ©   (2003-09-09 08:35) [8]

>>HolACost
Спасобо,т.е.
if RadioGroup3.ItemIndex = 4 then
BEGIN (!!!)
ComboBox3.Items.Clear;
ComboBox3.Items.Add("Не выбрано");
ComboBox3.Items.Add("20Ш1");
ComboBox3.Items.Add("25Ш1");
ComboBox3.Items.Add("30Ш1");
ComboBox3.Items.Add("30Ш2");
END (!!!);

---

← →
Vitalygavrilov ©   (2003-09-09 08:37) [9]

>>Hooch
Спасобо,т.е.
procedure TForm5.RadioGroup3Click(Sender: TObject);
if RadioGroup3.ItemIndex = 0 then
BEGIN
ComboBox3.Items.Clear;
ComboBox3.Items.Add("Не выбрано");
ComboBox3.Items.Add("20Ш1");
ComboBox3.Items.Add("25Ш1");
ComboBox3.Items.Add("30Ш1");
ComboBox3.Items.Add("30Ш2");
END;
if RadioGroup3.ItemIndex = 1 then
BEGIN
ComboBox3.Items.Clear;
ComboBox3.Items.Add("Не выбрано");
ComboBox3.Items.Add("20Ш1");
ComboBox3.Items.Add("25Ш1");
ComboBox3.Items.Add("30Ш1");
ComboBox3.Items.Add("30Ш2");
END;
end;

---

← →
HolACost! ©   (2003-09-09 08:38) [10]

Ага!

---

← →
Hooch ©   (2003-09-09 08:39) [11]

Зер Гуд, Вольдемар ! :-)

---

← →
Vitalygavrilov ©   (2003-09-09 08:39) [12]

HolACost!
Спасобо!

---

← →
HolACost! ©   (2003-09-09 08:39) [13]

Клиника! Вы зачем взялисьто за Дельфу если не знаете такого элюметраного! Странно!

---

← →
sewer1   (2003-09-09 09:01) [14]

А так не проще:
ComboBox3.Items.Clear;
Case RadioGroup3.ItemIndex of
1: begin
ComboBox3.Items.Add("20Б1");
ComboBox3.Items.Add("25Б1");
end;
2: begin
ComboBox3.Items.Add("20Ш1");
ComboBox3.Items.Add("25Ш1");
end;
3: begin
ComboBox3.Items.Add("20Ш1");
ComboBox3.Items.Add("25Ш1");
ComboBox3.Items.Add("30Ш1");
end;
else ComboBox3.Items.Add("Не выбрано");
end;

---

← →
Sewer   (2003-09-09 09:08) [15]

Э-э, Ошибся немного.
ComboBox3.Items.Add("Не выбрано"); не надо выносить в оператор else. Он же везде должен присутствовать. Значит так надо:
ComboBox3.Items.Clear;
Case RadioGroup3.ItemIndex of
1: begin
ComboBox3.Items.Add("Не выбрано");
ComboBox3.Items.Add("20Б1");
ComboBox3.Items.Add("25Б1");
end;
2: begin
ComboBox3.Items.Add("Не выбрано");
ComboBox3.Items.Add("20Ш1");
ComboBox3.Items.Add("25Ш1");
end;
3: begin
ComboBox3.Items.Add("Не выбрано");
ComboBox3.Items.Add("20Ш1");
ComboBox3.Items.Add("25Ш1");
ComboBox3.Items.Add("30Ш1");
end;
end;

---

← →
HolACost! ©   (2003-09-09 09:14) [16]

э-э-! Ещё раз ошибся он всегда присутствует - зачем его в кейс вносить вообще?

---

← →
Sewer   (2003-09-09 09:21) [17]

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

---

← →
Virgis   (2003-09-09 09:23) [18]

А если так, то совсем красиво получаетса

ComboBox3.Items.Clear;
ComboBox3.Items.Add("Не выбрано");
Case RadioGroup3.ItemIndex of
1: begin
ComboBox3.Items.Add("20Б1");
ComboBox3.Items.Add("25Б1");
end;
2: begin
ComboBox3.Items.Add("20Ш1");
ComboBox3.Items.Add("25Ш1");
end;
3: begin
ComboBox3.Items.Add("20Ш1");
ComboBox3.Items.Add("25Ш1");
ComboBox3.Items.Add("30Ш1");
end;
end;

---

← →
HolACost! ©   (2003-09-09 09:28) [19]

а уж совсем красиво

with ComboBox3 do
begin
Items.Clear;
Items.Add("Не выбрано");
case RadioGroup3.ItemIndex of
1: begin
Items.Add("20Б1");
Items.Add("25Б1");
end;
2: begin
Items.Add("20Ш1");
Items.Add("25Ш1");
end;
3: begin
Items.Add("20Ш1");
Items.Add("25Ш1");
Items.Add("30Ш1");
end
end
end;


---

← →
Anatoly Podgoretsky ©   (2003-09-09 09:38) [20]

HolACost! © (09.09.03 08:29) [6]
C end не так одназначно, когда нельзя, когда обязательнь, когда все равно.

---

← →
HolACost! ©   (2003-09-09 09:46) [21]

Офкоурз! просто слишком много говорить и ответил относительно локального примера!

---

← →
Vitalygavrilov ©   (2003-09-09 10:49) [22]

>>HolACost!
Насколько я понял Ваш сайт для того чтобы можно было
обратиться с вопросом ко всем, и с любым вопросом и Ваши коментарии типа "Клиника! Вы зачем взялисьто за Дельфу если не знаете такого элюметраного! Странно!" просто лишнии и унижающие.

С уважением Гаврилов В.А.

---

← →
HolACost! ©   (2003-09-09 10:53) [23]

Vitalygavrilov © (09.09.03 10:49) [22]
Ваш - это какой?

---

← →
Rol   (2003-09-09 10:55) [24]

>Vitalygavrilov
Думаю, если бы он возраст в анкете написал, Вы бы поняли и простили. :)

---

← →
Vitalygavrilov ©   (2003-09-09 10:58) [25]

>>HolACost
Новичков надо учить,а не проучивать!

---

← →
Rol   (2003-09-09 11:02) [26]

>Vitalygavrilov
Разделяю и поддерживаю. :)

---

← →
Sandman25 ©   (2003-09-09 12:09) [27]

И еще красивее :)
with ComboBox3.Items do
begin
Clear;
Add("Не выбрано");
case RadioGroup3.ItemIndex of
1: begin
Add("20Б1");
Add("25Б1");
end;
2: begin
Add("20Ш1");
Add("25Ш1");
end;
3: begin
Add("20Ш1");
Add("25Ш1");
Add("30Ш1");
end
end
end;

---

Страницы: 1 вся ветка

Текущий архив: 2003.09.22;
Скачать: CL | DM;

Наверх

Память: 0.53 MB
Время: 0.038 c