Помогите решите несложный вопрос о 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! (2003-09-09 09:46) [21]

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

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

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

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

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

← →
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;

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