https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=5830&view=findpost&p=66132 Fri, 14 Mar 2003 14:25:41 +0000 https://forum.sources.ru/index.php?showtopic=5830&view=findpost&p=66132 Сдается мне, что Delphi просчитывает цикл раньше (или одновременно), чем я выпадаю в отладчик. И показывает мне значение счетчика при выходе из цикла. Но тогда я не понял, зачем он начинает его минусовать? В других циклах ошибок не было (просто негде было им взяться), просто этот (который в примере) запускался раньше других. Как поборол глюк в цикле - так и остальные заработали. Ладно. Пока все работает. Спасибо.]]> miki Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5830&view=findpost&p=66130 Fri, 14 Mar 2003 13:45:29 +0000 https://forum.sources.ru/index.php?showtopic=5830&view=findpost&p=66130 Vit Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5830&view=findpost&p=66128 Fri, 14 Mar 2003 13:04:53 +0000 https://forum.sources.ru/index.php?showtopic=5830&view=findpost&p=66128 может кто вспомнит ???]]> ych_boriss Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5830&view=findpost&p=66126 Fri, 14 Mar 2003 12:34:07 +0000 https://forum.sources.ru/index.php?showtopic=5830&view=findpost&p=66126 Стал копать и что я вижу? Вот кусок кода:

....
Const MaxCnt=5;

Var
  MyComSpr:Array[0..MaxCnt-1] Of Boolean;
...
Implementation
.....

Procedure ReopenDT;
  Var MyCnt:Integer;
       WasOpen:Boolean;
Begin
...
 For MyCnt:=0 To MaxCnt-1 Do Begin
     WasOpen:=MyComSpr[MyCnt];
      .......
     End; //For MyCnt
...

End; //ReopenDT

Ставлю ВreakРoint на строку перед "For MyCnt...", пускаюсь, вываливаюсь в отладчик и трассирую. Слежу за переменной MyCnt. Перед циклом MyCnt=0. Нормально. После отработки первого же For (т. е. на строке WasOpen...) вижу "MyCnt=5"??!!!!. Не понял. И далее УМЕНЬШАЕТСЯ до 1!?
Далее. Пишу вместо "To MaxCnt-1" явно: "To 4". Тот же глюк. И так и в остальных циклах. Что это???]]> miki Delphi: Общие вопросы