счетчик в цикле изменяется не от 0 до 4 а от 4 до 0

[Ntlegend]

Здрасте.. собствено такое дело есть цыкл

var a:array [0..3] of boolean;
     b:array [0..3] of integer;
     r, i:integer;
*******
for i:=0 to 3 do
  if a[i]
    then inc(r, b[i]);

при пошаговой компиляцие видно что i изменяется не от 0 до 4 а от 4 до 0, установил обновления.. d7_ent_upd1_1.exe но проблема так и осталася.. с чем это может быть связано??

я понимаю что как вариант можна все цыклы заменить на while но это мне кажется не рацыональным выходом.

[raxp]

компилятору так удобнее... это назувается оптимизацией

[Ntlegend]

дело в том что такая проблема при использовании прямого цыкла.. при использовании обратного

for i:=3 downto 0 do
  if a[i]
    then inc(r, b[i]);

i вообще принимает минусовые значения..

поставил дерективу $O вроде все нормально стало.. от только я сути этого косяка так и не понял..

[Somebody]

Суть такая: не всё ли равно, какие i будет показывать дебаггер - работает всё нормально, если делать вывод i в самом коде, то будет то, что и ожидается.

[Ntlegend]

код приведенный выше - это всего лишь для примера.. на самом дела там у мення массив более сложной структуры и все это нада записать в файл.. я делаю таким образом: сначала в цыкле копирую все в буферную переменную, а потом с нее пишу.. и если цыкл идет не в том порялке - то соответственно не правильно записываеися в файл и данные становится невозможно прочитать..

[raxp]

значит меняйте переменную по inc принудительно

[Ntlegend]

ереписывать кучу цыклов.. темболее что многие из них имеют 4-х уровневые вложения.. это очень кропотливо..

P.S. raxp прочитай третий пост этой темы.. если не знаешь.. так зачем флудить..

[raxp]

P.S. raxp прочитай третий пост этой темы.. если не знаешь.. так зачем флудить

- перечитай второй пост.

[Ntlegend]

читал я второй пост.. именно он и толкнул на мысль написать дерективу оптимизацыи.. от только в чом суть сего действа я так и не понял..

[raxp]

попробуйте директиву

{$OPTIMIZATION OFF}

локально, перед циклом, а потом включить ее