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

[Altera]

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

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;

[_Dmitry]

for counter := 0 to 50 do  
begin
    i:=counter*2;  
   { Тыры пыры }  
end;

[Квэнди]

_Dmitry
вы считаете это нормальным ?

[Virtson]

for counter := 0 to 50 do  
begin
    i:= counter shl 1;  
   { Тыры пыры }  
end;

считаю нормальным =)

[_Dmitry]

А что здесь ненормально?
Вопрос был, как запустить цикл for с шагом отличным от единицы

for k:=0 to (max-min) div step do
begin
  i:=min+k*step;
  //операторы цикла
end;

Согласен, что циклы while или repeat в этом случае выглядят изящней.

[Квэнди]

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

for counter := 0 to 50 do  
begin
    i:= counter shl 1;  
   { Тыры пыры }  
end;

считаю нормальным =)

еще куда ни шло

А что здесь ненормально?
Вопрос был, как запустить цикл for с шагом отличным от единицы
1. for k:=0 to (max-min) div step do
2. begin
3. i:=min+k*step;
4. //операторы цикла
5. end;

for k:=0 to (max-min) div step do
begin
i:=min+k*step;
//операторы цикла
end;

Согласен, что циклы while или repeat в этом случае выглядят изящней.

хуже.
Менять переменную цикла в For крайне некорректное действие, на уровне goto. Хотя это может быть мое субъективное мнение

[B_N]

Квэнди, так ведь _Dmitry счётчик и не трогает...

[Квэнди]

Да, согласен, глаза спали видимо

[Altera]

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

for counter := 0 to 50 do  
begin
    i:= counter shl 1;  
   { Тыры пыры }  
end;

считаю нормальным =)

Работает, но что собственно делает оператор "shl"