powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Не срабатывает условие
6 сообщений из 6, страница 1 из 1
Не срабатывает условие
    #39765259
Vizit0r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Delphi Seattle

есть проверка

if ValidObject(CurrContext) and ValidObject(CurrContext.Data) and (TScriptData(CurrContext.Data).EventProcList[EventName] = true) then

и, несмотря на то, что в последнем массиве все False, и соответственно одно из условий False (что видно на скрине) - оно заходит внутрь блока.

Уже вон и принудительно на True проверяю, неважно.

P.S.Evauate\Modify по строке ValidObject(CurrContext) and ValidObject(CurrContext.Data) and (TScriptData(CurrContext.Data).EventProcList[EventName] = true) выдает False.


Пересобирал проект, не помогло. Что я делаю не так?
...
Рейтинг: 0 / 0
Не срабатывает условие
    #39765263
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Vizit0rЧто я делаю не так?

Читая букварь ты явно пропустил главу про приоритеты операций в выражениях. Сюрприз, но у
and он выше, чем у =.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Не срабатывает условие
    #39765265
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А, извини, это у меня плохо с подсчётом скобок.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Не срабатывает условие
    #39765270
Vizit0r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: pascal
1.
if ValidObject(CurrContext) and ValidObject(CurrContext.Data) and TScriptData(CurrContext.Data).EventProcList[EventName] then



полным выражением, без дефайнов - работает правильно.
Буду считать, что это баг сиээтла.

Через несколько дней поставлю Рио и проверю, как там будет работать.

P.S. Если что - раньше EventProcList был массивом строк, а не Boolean. И проверка на непустую строку отрабатывала правильно, а после перехода на Boolean начались такие карусели.
...
Рейтинг: 0 / 0
Не срабатывает условие
    #39765274
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Vizit0r,

Точка с запятой после {$ENDIF}
...
Рейтинг: 0 / 0
Не срабатывает условие
    #39765275
Vizit0r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
баааалин...вот это да.
Спасибо.
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Не срабатывает условие
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]