Проблема с циклом for... , ... по непонятной причине считает с конца

[Navern]

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

  for n := 0 to LoginCount.Count-1 do
  begin
    for m := 0 to PassCount.Count-1 do
    begin
      Login := LoginCount.Strings[n];
      Password := PassCount.Strings[m];
      POST;
    end;
  end;

При первом же запуске и значение "m", и значение "n" принимают свои максимальные значения. А должны принимать значение "0". Я пол дня ломал над этим голову. Поискал по Интернету - оказывается я не один такой. У некоторых тоже встречается эта проблема. Решают её либо переписыванием неугодного кода, либо отключением оптимизации в свойствах компилятора. Отключал - не помогает.

Кто-нибудь может объяснить, почему так происходит и как мне это победить?

[Alex Wolf]

Цитата Navern @ 11.02.07, 03:22

При первом же запуске и значение "m", и значение "n" принимают свои максимальные значения

Отладчиком прошелся? В какой точке смотришь значения переменных? В теле цикла(ов)?

[Testudo]

В настройках компилятора отключи оптимизацию. Это именно она пускает циклы с конца.

[НарКот]

Оптимизация в Делфях не доведена до ума, даже если отключить оптимизацию, то компилятор все равно кое-что оптимизирует

[Navern]

Testudo, оптимизацию отключал, я писал об этом. Не помогло... Альтернативы отключению оптимизации есть?

[MBo]

циклы while сделай, да и всё.

[НарКот]

Цитата Navern @ 11.02.07, 10:40

Альтернативы отключению оптимизации есть?

замени for на While

[jack128]

Цитата Navern @ 11.02.07, 03:22

При первом же запуске и значение "m", и значение "n" принимают свои максимальные значения

var
  LoginCount, PassCount: TStrings;
  n, m: Integer;
  Login, PAssword: string;
begin
  PassCount := nil;
  LoginCount :=TStringList.Create;
  try
    PassCount := TStringList.Create;
    for n := 0 to 10 - 1 do
    begin
      PassCount.Add(IntToStr(n));
      LoginCount.Add(IntToStr(n));
    end;
 
    for n := 0 to LoginCount.Count-1 do
    begin
      for m := 0 to PassCount.Count-1 do
      begin
        ShowMessage(Format('n = %d, m = %d', [n, m]));
        Login := LoginCount.Strings[n];
        Password := PassCount.Strings[m];
//        POST;
      end;
    end;
  finally
    PassCount.Free; LoginCount.Free;
  end;
end;

Первое сообщение соджержит текст:

---------------------------
Project7
---------------------------
n = 0, m = 0
---------------------------
OK
---------------------------

Что я делаю не так?

[Domino]

Цитата jack128 @ 11.02.07, 14:27

Что я делаю не так?

Вот это:

Цитата jack128 @ 11.02.07, 14:27

        ShowMessage(Format('n = %d, m = %d', [n, m]));

[jack128]

Domino
а чем это не правельно?

[Domino]

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

for I := 0 to 10 do
  Result := Result + Values[I];

будет скомпилировано как

for I := 10 downto 0 do
  Result := Result + Values[I];

,но

for I := 0 to 10 do
begin
  ShowMessage(Format('Добавляем %d...', [I]))
  Result := Result + Values[I];
end;

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

Navern, в большинстве случаев такая "оригинальная" оптимизация компилятора не мешает, но в твоем случае, если тебе важен порядок взлома чего-то там, измени логику метода.

[Navern]

Domino, ладно, спасибо. Попробую переписать по-другому.

Сообщение отредактировано: Navern - 12.02.07, 11:49

[jack128]

Цитата Domino @ 12.02.07, 10:38

for I := 0 to 10 do
Result := Result + Values[I];

будет скомпилировано как
for I := 10 downto 0 do
Result := Result + Values[I];

Да ? Не уж то компилятор обладает навыками телепатии?? Хотелось бы конечно, но маловероятно.

Нажми Alt + Ctrl + C и посмотри сам во что компилируется твой код.

[Domino]

Цитата jack128 @ 12.02.07, 12:20

Не уж то компилятор обладает навыками телепатии?

Случается.

Цитата jack128 @ 12.02.07, 12:20

Нажми Alt + Ctrl + C и посмотри сам во что компилируется твой код.

Хм, и вправду. Запостил не проверив. Но это точно есть! Позже, если я найду у себя код, где это проявлялось, то выложу. А вот здесь точно цикл переворачивается (и не только переворачивается):

  for I := 5 to 9 do
    S := S + 1;

[jack128]

Цитата Domino @ 12.02.07, 13:51

А вот здесь точно цикл переворачивается (и не только переворачивается):

здесь - да, переворачивается. Но в этом цикле ты счетчик цикла ВООБЩЕ не используешь. А в #1 - счетчик используется - поэтому разворота цикла быть не может.