[ProESM]

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

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

Код:

    // Получаем префикс времени
    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;

После строки

Код:

for i := 0 to 5 do

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

Код:

for i := 0 to N do

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

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

[Aristarh Dark]

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

[ProESM]

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

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

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

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

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

Код:

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]

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

Код:

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

Итерация

Код:

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