[ProESM]

Приветствую всех.

Перейду сразу к делу.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

// Получаем префикс времени function GetTimePrefix(N: Integer): String; const   pref: array [0..6] of string = (' г. ', ' м. ', ' н. ', ' д. ', ' ч. ', ' мин. ', ' сек. ');   del: array [0..6] of Integer = (31536000, 2592000, 604800, 86400, 3600, 60, 1); var   a: array [0..6] of Integer;   i: integer; begin   Result := '';   a[6] := N;      for i := 0 to 5 do   begin     a[i] := a[6] div del[i];     a[6] := a[6] mod del[i];     if a[i] <> 0 then       Result := Result + IntToStr(a[i]) + pref[i]   end end;

После строки

Код:

1	for i := 0 to 5 do

счетчик при первой итерации устанавливается в i=6, а затем спускается вниз. Замечено, что если поставить

Код:

1	for i := 0 to N do

то счетчик примет при первой итерации значение i=N+1.

В чем причина?! Более в коде под "i" никакой другой переменной нет. Поясните, пожалуйста

[Aristarh Dark]

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

[ProESM]

Сообщение от Aristarh Dark

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

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

Не вдаваясь в подробности алгоритма, вопрос адресован конкретно по этому на мой взгляд необъяснимому и непонятному поведению компилятора.

Насчет преобразования хотелось бы поподробней, ибо он такое не всегда совершает. К примеру, в конструкции:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

for i := 0 to FileList.Count - 1 do   begin     FileNameLabel.Caption := 'Файл: ' + FileList.Strings[i];     DetalProgressBar.Position := 0;     DetalProgressBar.Hint := ExtractFileName(FileList.Strings[i]);     ByteS := 0;     TimeBuf := Now();     Windows.CopyFileEx(       PChar(UpdatePath+FileList.Strings[i]),       PChar(AppPath+FileList.Strings[i]),       @ProgressRoutine,       nil,       nil,       0     );     if IsCanceled then Break;   end;

все работает так, как нужно, без полтергейстов.

[Aristarh Dark]

Если я написал что результат верный - значит я проверил. От направления, кста, результат вычислений не зависит.
Отключи оптимизацию - будет по порядку. Но это не верный путь.

[ProESM]

Сообщение от Aristarh Dark

Если я написал что результат верный - значит я проверил. От направления, кста, результат вычислений не зависит.
Отключи оптимизацию - будет по порядку. Но это не верный путь.

Спорить не буду. Отключил - не помогло

[flexterful]

Используй указатели.

Код:

1 2 3 4 5

PSomeItem = ^TSomeItem; TSomeItem = class  Data : TSomeData;  Next : PSomeItem; end;

Итерация

Код:

1 2 3 4 5 6 7 8 9

var  Elem : PSomeItem; begin  Elem := FirstSomeItem;  while Elem <> nil do   begin    // blah blah    Elem := Elem.Next;   end;

[Aristarh Dark]

Эх, откуда ж вы такие беретесь-то, неверующие.
РАЗ: Выдержка из хелпа:

Other than for certain debugging situations, you should never have a need to turn optimizations off. All optimizations performed by the Delphi compiler are guaranteed not to alter the meaning of a program. In other words, the compiler performs no "unsafe" optimizations that require special awareness by the programmer.

Note: Note: The $O directive can only turn optimization on or off for an entire procedure or function. You can't turn optimization on or off for a single line or group of lines within a routine.

Главную мысль я подчеркнул.

Код скопипастил из вашего поста, ничего не менял только добавил вызов.
ДВА:
Проход со включенной оптимизацией -

ТРИ:
Проход с отключенной оптимизацией -

Если у вас не изменилось - обновите драйвер hands.sys