как изменить счетчик цикла Delphi - есть ответ

beta имя, 375 просмотров

Есть такой код:
for iOut := 0 to Image2.Width - 5 do
begin
...
if true then
//счетчик цикла сразу можно увеличить на 7
...
end;

Так как счетчик в цикле изменять нельзя, как можно модифицировать данный код?

Примечание:
to Livid:
а как 7 раз использовать Continue?

if true then
Continue//это только на один раз увеличит, а как на 7 раз?

Всем спасибо за ответы

Ответы:

Nofate

Использовать цикл while

OArtem3

присвой какой-то переменной (допустим qwer) значение (iOut+7), другой булевской переменной (допустим asdf) true(перед циклоп поставь ей неправду), каждый раз увеличивай qwer на один, если asdf=true, потом когда asdf будет равна Image2 (конечной перем.), разбивай цикл.
Можно ещё пофантазировать, поизвиваться.

OArtem3

ну или как нофат предложил...
увличивай iOut на один каждый раз, а если счётчик измаенить надо, то изменяй iOut на 7.

Livid

Простой и понятный вариант использовать оператор continue
Сложный и нетипичный использовать цикл while и оперировать со счетчиком вручную.

Удачи =)

никто не мешает воспользоваться указателями
var i:integer;
pint:pinteger;
begin
pint:=@i;
for i:=0 to 15 do
begin
if i=7 then
inc(pint^,7-1)
else
showmessage(inttostr(i));
end;
end;

14 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.