Показать сообщение отдельно
  #5  
Старый 08.01.2021, 23:13
Motorolla Motorolla вне форума
Прохожий
 
Регистрация: 06.06.2019
Сообщения: 8
Версия Delphi: Delphi 7 / XE8
Репутация: 10
По умолчанию

Цитата:
Сообщение от 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;
Ответить с цитированием