Как сделать перескок через единицу в обыкновенном цикле?

← →
Марина (2006-06-14 09:15) [0]

for i := 0 to oreol.Lines.Count-2 do begin x := strtoint(oreol.Lines.Strings[i]); y := strtoint(oreol.Lines.Strings[i+1]); end;

Цикл простой, но мне надо сделать так, чтобы после первого круга цикла он перескакивал не значение i+1, а на значение i+2. Подскажите пожалуйста как это можно сделать?

← →
Сергей М. © (2006-06-14 09:19) [1]

Для for-цикла - никак.
Для этой цели используй любой другой цикл - while или repeat

← →
Сергей М. © (2006-06-14 09:22) [2]

Но можно сделать так:

for i := 0 to oreol.Lines.Count div 2 -1 do
begin
x := strtoint(oreol.Lines.Strings[i * 2]);
y := strtoint(oreol.Lines.Strings[i * 2 + 1]);
end;

← →
Марина (2006-06-14 09:29) [3]

>Сергей М.

спасибо :)

← →
StriderMan © (2006-06-14 10:06) [4]

if i = 1 then continue;

← →
Vasiliy (2006-06-14 11:48) [5]

А что цикл типа for i = 0 to oreol.Lines.Count-2 step 2 do нельзя применить ?

← →
StriderMan © (2006-06-14 11:52) [6]

> А что цикл типа for i = 0 to oreol.Lines.Count-2 step 2
> do нельзя применить ?

со step"ом в бэйсик!!

← →
palva © (2006-06-14 11:53) [7]

> Vasiliy (14.06.06 11:48) [5]
> А что цикл типа for i = 0 to oreol.Lines.Count-2 step 2 do нельзя применить ?

В языке бейсик можно

← →
palva © (2006-06-14 11:54) [8]

со step"ом в бэйсик!!
i = 0 в паскале тоже означает не то что в бейсике.

← →
Dmitrij_K (2006-06-14 11:54) [9]

> А что цикл типа for i = 0 to oreol.Lines.Count-2 step 2
> do нельзя применить ?

Попробуй, узнаешь.
Можно еще mod
for j:=0 to 10 do
begin
if (j mod 2)=0 then
begin

end
end

Только автор справшивала не об этом. Ей нужно было пропустить только одно выполнение тела цикла при i = 1

Чем continue не понравился???? для этого и сделан.

> Чем continue не понравился???? для этого и сделан.
Естественно. Самое очевидное решение. Но автор уже давно не читает нашего трёпа.

← →
Vasiliy (2006-06-14 16:53) [13]

> со step"ом в бэйсик!!

Это что, у меня до сих пор бейсик в мозгах сидит :) 13 лет к бейсику близко не подходил ...

Как сделать перескок через единицу в обыкновенном цикле? Найти похожие ветки