Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.03.21;
Скачать: CL | DM;

Вниз

Отчего ошибка при сравнении Variant?   Найти похожие ветки 

 
Cobalt ©   (2009-04-19 21:02) [0]

Есть переменная
FWB : Variant;
В конструкторе класса инициализирую её Unassigned
В процедуре перед тем, как обратиться к ней, делаю проверку:
 if FWB = Unassigned then
   Result := Unassigned


И это сравнение вызывает
raise EVariantInvalidOpError.Create(SInvalidVarOp);

Получается это оттого, что  сравнение идет с типом varDispatch.

Возникает вопрос - каковы причины такого поведения?
Почему не возвращать false?

P.S.  BDS2007


 
ТД   (2009-04-19 21:12) [1]


> Result := Unassigned

а подумать после посмотреть?


 
Cobalt ©   (2009-04-19 21:20) [2]

Для особо внимательных:
Я прошелся по системным модулям до самого места вызова EVariantInvalidOpError, и обнаружил, что на любую операцию сравнивания с varDispatch вызывается эксепшн.

Вопрос-то мой об аргументах на такой запрет.


 
int64   (2009-04-20 09:40) [3]

Вообще-то, вместо FWB = Unassigned реальные пацаны пишут: VarIsClear(FWB).
Впрочем как и вместо FWB = null -> VarIsNull


 
Плохиш ©   (2009-04-20 10:43) [4]


> Cobalt ©   (19.04.09 21:20) [2]
>
> Для особо внимательных:
> Я прошелся по системным модулям до самого места вызова EVariantInvalidOpError

А справку не пробовал по используемым функциям почитать?
Хотя, чегой-то я, реальнокрютыеперцы справок/книжек не читают...


 
clickmaker ©   (2009-04-20 11:29) [5]

> Почему не возвращать false?

VarIsEmpty()



Страницы: 1 вся ветка

Текущий архив: 2010.03.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.008 c
15-1262122484
Dmytry2010
2009-12-30 00:34
2010.03.21
Работа с сокетами TCP на Pascale под MS DOS


15-1261943074
Kerk
2009-12-27 22:44
2010.03.21
Отправьте СМС на номер 1234 и получите 100 рублей на счет


15-1262069352
БарЛог
2009-12-29 09:49
2010.03.21
пример.испытание


15-1262283412
Чечако
2009-12-31 21:16
2010.03.21
Как программировать в Делфи?


11-1214300690
Valera
2008-06-24 13:44
2010.03.21
Замена системных модулей для Delphi7.