VPF::У меня проблема , надо отодвинуть счетчик цикла

Ner-zul

Дата 25.7.2006, 14:11 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 232
Регистрация: 24.1.2004
Где: Москва

Репутация: нет
Всего: нет

Код


for i := 0 to g - 1 do 
        begin
           if ... then
         begin
         // i:=i-1      !!!!!!!!!!  ВОТ ЗДЕСЬ ВЫДАЕТ ОШИБКУ Говорит i - счетчик цикла и была изменена-это ошибка
         end;

Я даже и не знаю что делать. Просто мне нужно отодвигать счетчик цикла обратно...

--------------------

Ner-zul

volvo877

Дата 25.7.2006, 14:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116

Цитата(Ner-zul @ 25.7.2006, 14:11

)

Я даже и не знаю что делать.

Пользоваться альтернативным циклом: While или Repeat/Until, с For такие штуки не проходят...

Код

i := 0;
while i < g do begin

  if ... then { ничего не делать }
  else i := i + 1;

end;

Ner-zul

Дата 25.7.2006, 14:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 232
Регистрация: 24.1.2004
Где: Москва

Репутация: нет
Всего: нет

Да-да-да! я уже и сам написал! Как раз While do smile

--------------------

Ner-zul

Romikgy

Дата 25.7.2006, 14:35 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

можно еще через repeat smile

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Yanis

Дата 25.7.2006, 14:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Код

var
  i: Integer;
begin
  for i := 0 to 100 do
    if True then
      begin
        asm
          add DWORD PTR i, 1 // == i := i + 1
          sub DWORD PTR i, 1 // == i := i - 1
        end;
      end;
end;

--------------------

*щёлк*

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »