[Motorolla]

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

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

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

Код:

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;