Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > У меня проблема , надо отодвинуть счетчик цикла

Автор: Ner-zul 25.7.2006, 14:11

Код


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

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

Автор: volvo877 25.7.2006, 14:23

Цитата(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

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

Автор: Romikgy 25.7.2006, 14:35

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

Автор: Yanis 25.7.2006, 14:57

Код

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;