Проблема с циклом for

[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" никакой другой переменной нет. Поясните, пожалуйста

[_Dmitry]

Это работа оптимизатора.
Можете его отключить. Поставьте перед циклом: {$O-}
Включить: {$O+}

[ProESM]

Сообщение от _Dmitry

Это работа оптимизатора.
Можете его отключить. Поставьте перед циклом: {$O-}
Включить: {$O+}

Не помогло

[Serge_Bliznykov]

а если так сделать?

   // Получаем префикс времени
    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
      i:=0;
      while i<= High(del) do begin
        a[i] := N div del[i];
        N := N mod del[i];
        inc(i);
      end;

      Result := '';
      for I := 0 to High(del) do
        if a[i] <> 0 then
          Result := Result + IntToStr(a[i]) + pref[i];
    end;

[ProESM]

Естественно, что так все работает. Я аналогично поступал, и через repeat пробовал. А вот через for не получилось ((
Хм... Но это все равно значит уйти от проблемы и решить задачу, а не решить и задачу и проблему

[_Dmitry]

Почему не помогло?
У меня работает.
Главное не включать оптимизатор снова.

    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;
      {$O-}
      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;

Можно его выключить и здесь: Project->Options...->Compiler->Optimization (это для Delphi 7)

[YarUnderoaker]

Как работает for .. to .. do - это одно из первых, что надо знать Делфи-програмисту

Warning: The iteration variable counter cannot be modified within the loop. This includes assignment and passing the variable to a var parameter of a procedure. Doing so results in a compile-time warning.

http://docwiki.embarcadero.com/RADSt...For_Statements

[veniside]

> Но это все равно значит уйти от проблемы и решить задачу, а не решить и задачу и проблему

а в чём проблема, собственно?

[Serge_Bliznykov]

ну так алгоритм же надо правильно писать. Тогда не будет и проблем!
В Вашем случае всё работает. только секунды в выходную выборку не попадают (a[i] - а i никогда не станет равным 6)

вот, попробуйте такой код:

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

      for i := 0 to 6 do
      begin
        a[i] := N div del[i];
        N := N mod del[i];
        if a[i] <> 0 then
          Result := Result + IntToStr(a[i]) + pref[i]
      end
    end;

[GunSmoker]

http://forum.sources.ru/index.php?sh...post&p=2892243