Цитата:
|
Сообщение от 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;
|