Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Complete Boolen Eval + Variant. Баг или нет? / 3 сообщений из 3, страница 1 из 1
12.07.2020, 21:30:49
    #39978718
alekcvp
alekcvp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Complete Boolen Eval + Variant. Баг или нет?
Код:
Код: pascal
1.
2.
3.
  QueryActive := qTransfers.Active and not qTransfers.IsEmpty;
  IsOutToday := QueryActive and (qTransfers.FieldByName('ODATE').AsDateTime = Date);
  CanEditOut := IsOutToday and (qTransfers['PAYD'] < 2) and not qTransfers['BLOCKED'];

При qTransfers.Active = False выдаёт исключение "Field 'BLOCKED' not found" (непонятно, почему BLOCKED, а не PAYD?).

Если последнюю строчку изменить на
Код: pascal
1.
  CanEditOut := IsOutToday and (qTransfers['PAYD'] < 2) and (qTransfers['BLOCKED'] = False);


то всё работает как задумано. Это какие-то особенности преобразования Variant -> Boolean или просто баг?

CBE отключено.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2020, 23:00:18
    #39978734
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Complete Boolen Eval + Variant. Баг или нет?
А так ?
Код: pascal
1.
CanEditOut := IsOutToday and (qTransfers['PAYD'] < 2) and not boolean(qTransfers['BLOCKED'])
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2020, 23:03:25
    #39978737
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Complete Boolen Eval + Variant. Баг или нет?
Я, например, пишу так, чтобы не надеяться на всякие CBE
Код: pascal
1.
2.
3.
4.
var F: boolean;
F := qTransfers.Active and not qTransfers.IsEmpty;
if F then F := qTransfers['ODATE'] = Date();
if F then F := (qTransfers['PAYD'] < 2) and not boolean(qTransfers['BLOCKED']);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Complete Boolen Eval + Variant. Баг или нет? / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 552ms
Закрыть
start [/forum/topic.php?fid=58&tablet=1&tid=2038152]:
 0ms
get settings:
 15ms
get forum list:
 21ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 55ms
get topic data:
 21ms
get forum data:
 5ms
get page messages:
 70ms
get tp. blocked users:
 3ms
others: 352ms
total:  552ms
x
x
Закрыть


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