[Stanei]

Здравствуйте.
Есть комбобокс с вариантами (около 20шт). В событии ComboBox1Change такой код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var flag:word; begin flag:=combobox1.itemindex; ... case flag of 0:begin //выполнить все варианты end; 1:begin //код1 end; 2:begin //код2 end; //и т.д. до 19 end;

Вопрос такой, как сделать, чтобы при выборе первого варианта (case flag 0) выполнялись все варианты от 1 до 19

[denzenit]

Из-за логики самого оператора поставленную задачу (если я правильно понял вас), не удастся решить.

Тут либо исключить 0 из case of и вставить в конце else и после этого else уже прописать все коды. Либо же создать юнит(если не хотите захламлять этот), в нём процедуру со всеми кодами и просто из первого юнита вызывать эту процедуру после else

при первом варианте будет так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

1 var flag:word; begin flag:=combobox1.itemindex; ... case flag of 1:begin //код1 end; 2:begin //код2 end; else //код1 //код2 //код3 //код4 и т.д end;

Во втором

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

1 var flag:word; begin flag:=combobox1.itemindex; ... case flag of 1:begin //код1 end; 2:begin //код2 end; else     begin     имя процедуры(параметры);     end; end;

[dr. F.I.N.]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure DoSomething(flag: Integer); begin   case flag of   0: {do action 1};   1: {do action 2};   ...   n: {do action n};   else     {do another action};   end; end;   procedure TForm1.Combobox1Change(Sender: TObject); var   i: Integer; begin   for i := Combobox1.ItemIndex to Combobox1.Items.Count - 1 do     DoSomething(i); end;

[Stanei]

Сообщение от denzenit

Из-за логики самого оператора поставленную задачу (если я правильно понял вас), не удастся решить.

Тут либо исключить 0 из case of и вставить в конце else и после этого else уже прописать все коды. Либо же создать юнит(если не хотите захламлять этот), в нём процедуру со всеми кодами и просто из первого юнита вызывать эту процедуру после else

Как раз сейчас так и реализовано, все процедуры продублированы ради одного варианта((
Думал как-нибудь упростить, ну ладно, надеюсь сильно мешать не будет.

Спасибо за ответ.

[Motorolla]

Сообщение от Stanei

Вопрос такой, как сделать, чтобы при выборе первого варианта (case flag 0) выполнялись все варианты от 1 до 19

Ну или вот так, чтобы не расшевеливать уже написанное и всяко меньше лишних строк:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var f,ia:word; begin   f:=combobox1.itemindex;   ia:=f;    repeat    case ia of    1: Memo1.Lines.Add('1');    2: Memo1.Lines.Add('2');    3: Memo1.Lines.Add('3');    4: Memo1.Lines.Add('4');    5: Memo1.Lines.Add('5');    end;    if f=0 then inc(ia,1) else break;    until ia>5; end;