На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.


Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Модераторы: jack128, D[u]fa, Shaggy, Rouse_
  
> Delphi 7: For .. To??
    Я что-то не понял: Не писал на Delphi год. Сейчас потребовалось. Поставил сразу v.7 (до этого юзал 5-ую и горя не знал). Простецкая прога вылетает по непонятной причине.
    Стал копать и что я вижу? Вот кусок кода:

    ....
    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". Тот же глюк. И так и в остальных циклах. Что это???
      по-моему, это в настройках компилятора (или бильдера) опции выставляются (непомню :()
      может кто вспомнит ???
        Отмени оптимизацию в настройках компиллятора
          Отменял оптимизацию в компиляторе. Включал Pentium-safe FDIV, проверку стека и т. п. Выключал машину на несколько минут. Не спасло. Переделал код внутри цикла. Походу глюк был там (что-то я с указателями намудрил, сделал по другому и все ОК, почему не работало раньше - так и не понял. Ну и ладно).
          Сдается мне, что Delphi просчитывает цикл раньше (или одновременно), чем я выпадаю в отладчик. И показывает мне значение счетчика при выходе из цикла. Но тогда я не понял, зачем он начинает его минусовать? В других циклах ошибок не было (просто негде было им взяться), просто этот (который в примере) запускался раньше других. Как поборол глюк в цикле - так и остальные заработали. Ладно. Пока все работает. Спасибо.
          0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
          0 пользователей:


          Рейтинг@Mail.ru
          [ Script execution time: 0,0267 ]   [ 16 queries used ]   [ Generated: 2.05.24, 08:45 GMT ]