Не правильная работа for .. to

[Neptunium]

Не правильно работает for i:=0 to N do
Почему в делфи 6 счётчик работает задом наперёд, типа как
for i:=N downto 0 do
Это какой-та баг компилятора или что может надо какуюта команду компилятора вставлять что бы отключить оптимизацию кода. Я так понял компилятор думает что в цикле счётчик i не используется и компилет более оптимальный но не верный код.
Типа
Нц N раз
...
Кц
Это на алгоритмическом языке.
Короче как сделать что бы делфи нормальный код компилел.

[Marsel737]

Neptunium, может это у вас в коде ошибка, а вы на делфи грешите? Попробуйте простейший пример скомпилировать в новом проекте

[Пепел Феникса]

программирую на Делфи 6 уже более 3 лет, все работает отменно.
так что показывайте код.

[Neptunium]

procedure TForm1.Button3Click(Sender: TObject); // reset
var x,y,x1,y1 : integer;
begin
  Kol:=StrToInt(Edit1.Text);
  if (Kol<1) or (Kol>MaxKol) then begin Kol:=MaxKol; Edit1.Text:=IntToStr(MaxKol); end;
  Stx:=(Rzx-20) div (Kol+1);
  Sty:=(Rzy-20) div (Kol+1);
  x1:=Bort;y1:=Bort;
  for y:=0 to 8+1 do
   begin
    for x:=0 to 8+1 do
     begin
       Kx[x,y]:={x1;//}Stx*x+Bort;
       Ky[x,y]:={y1;//}Sty*y+Bort;
       Vx[x,y]:=0;
       Vy[x,y]:=0;
       inc(x1,Stx);
     end;
    inc(y1,Sty);x1:=Bort;
   end;
  Kx1:=Kx;
  Ky1:=Ky;
  Vx1:=Vx;
  Vy1:=Vy;
  Otrisovka(Form1);
end;

Значит так, for i:=0 to константа do
и в цикле не используется i не считая индексов массивов то цикл работает НЕПРАВИЛЬНО.
Во остальных случаях код компилятся нормально, так что это баг самого компилятора, не правильно оценивает код. Короче прогеры намудрили с оптимизации.
Borland DELPHI 6 Enterprise
Version 6.0 (Build 6.163)
Так что это полюбому ошибка компилятора, и думаю надо искать заплатку, а то задалбывает потом разбирать чо ни работает как надо ПРАВИЛЬНЫЙ алгоритм.

[Пепел Феникса]

стоп, стоп, стоп.

Значит так, for i:=0 to константа do
и в цикле не используется i не считая индексов массивов то цикл работает НЕПРАВИЛЬНО.

это все нормально, и все работать будет верно, ибо i вы не используете.
знали бы ассемблер поняли бы почему так идет, и это и есть оптимизация.
странно что в статичных цикла(да и с переменной длиной тоже можно)
не используется команда ассемблера loop. вот этого я не понимаю.
хех, как показала практика, оптимизатор не идеален. всетаки чистый ассемблер быстрее был бы.

а в таких циклах как ваш все должно работать отменно.

если не трудно, скиньте код проектом, прикрепив во вложение.

[пауэрлифтинг]

я тоже замечал в delphi 7 2005 что цикл for работает не правильно
это видно когда пошагово выполняеш программу и видно что счетчик цикла не правильно изменяется..

[Пепел Феникса]

в Делфи в принципе раскладывает некоторые конструкции так а не иначе.
например

var j:integer=1;
const A:array[0..4] of integer=(1,2,3,4,5);

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=0 to 4 do j:=j*2+A[i];
end;

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

[пауэрлифтинг]

наверно не правильно он только выводит сщетчик когда пошагово смотриш (клавишей F7 или F8). а работает правильно