Как в delphi запустить цикл for с шагом отличным от единицы

Posted by Chas under Delphi

Вот как мне пустить цикл

for counter := 0 to 100 do

begin

   { Тыры пыры }

end;

не с шагом 1 (0, 1, 2, 3, 4, 5, …., 100), а с шагом, скажем, 2 (0, 2, 4, 6, …, 100) или с другим каким не будь. Уж очень не хочиться юзать if…then в цикле. Или while…do предётся взять.

Serge_Bliznykov
вопрос понятен, во многих других языках есть конструкция for … step <шаг цикла>
но в Delphi такого нет.
Поэтому нужно воспользоваться любым из двух других циклов: while … do или repeat .. until
например:

 i:=0;

  while i<=100 do begin
     { Тыры пыры }
     i := i + 2;
  end;[/code]

Virtson

for counter := 0 to 50 do

begin

    i:= counter shl 1;

   { Тыры пыры }

end;

тема на форуме

Похожие статьи

• Чем отличаются for от while?
• Найти сумму положительных нечетных чисел меньших 100. Цикл на Assembler
• Как выйти из цикла while?
• Как в цикле дождаться загрузки webbrowser и продолжить работу
• Является ли оператор цикла оператором ветвления?
• Что делать если ошибка For loop control variable must be simple local variable?
• Как пропустить значение в цикле?