Сравнение вариантов

← →
Ega23 © (2007-11-09 13:41) [0]

Всю бошку сломал.

procedure TCustomPCController.ChangeLogObjstate; var LogStatCod : Integer; begin inherited ChangeLogObjstate; if (FLogObjID<>null) and (FPhsCfgTypCod<>null) then begin LogStatCod := configurator.DBUtils.getLogStatCod(FPhsCfgTypCod, FState); ILogObjID.SetLogState(LogStatCod); end; end;

Здесь FLogObjID и FPhsCfgTypCod - protected поля класса, тип - variant.
Под отладчиком:
FLogObjID=2346, FPhsCfgTypCod=1540

НО Я НЕ ПОПАДАЮ В УСЛОВИЕ!!!
Т.е. сразу после if (FLogObjID<>null) and (FPhsCfgTypCod<>null) then - попадаю на end.
Оптимизация отключена.

← →
Игорь Шевченко © (2007-11-09 13:43) [1]

зайди в CPU Window посмотри, почему не попадаешь

← →
Reindeer Moss Eater © (2007-11-09 13:47) [2]

Есть еще VarIsEmpty и VarIsNull

← →
Ega23 © (2007-11-09 13:50) [3]

> зайди в CPU Window посмотри, почему не попадаешь

Да хрен его знает, почему. Неясно там нифига. Могу скрин-шот прислать.

Блин, бред какой-то...

Причем, если V := null, то VarIsEmpty(V) = False, что логично, но не всегда очевидно ;)

Всё, понял.
CustomClass был в одной dll описан, потомок - в другой.
Надо было обоим ребилд сделать, а я только для CustomClass делал.

Сравнение вариантов Найти похожие ветки