Null

← →
Alex8 (2007-12-17 10:34) [0]

Уважаемые мастера !
В приведенном ниже фрагменте транслятор не
пропускает "If r2=Null " ( Null- не декларирован).
В тоже время после выполнения оператора
r2:= Query1.fieldByName("cAvt_1").Value; (в пошаговом режиме)
читаю r2=Null.
Подскажите, пожалуйста, где ошибка.

procedure TMDMyBook.Query1CalcFields(DataSet: TDataSet);
Var r1, r2:Variant;
begin
r1:= Query1.fieldByName("cAvt").Value;
r2:= Query1.fieldByName("cAvt_1").Value;
If r2= Null Then Query1.fieldByName("Avt").Value:= r1 // ??????
Else Query1.fieldByName("Avt").Value := r2;
end

← →
Сергей М. © (2007-12-17 10:36) [1]

uses Variants

← →
DrPass © (2007-12-17 10:36) [2]

vaNull

← →
Alex8 (2007-12-17 10:48) [3]

> uses Variants

Все в порядкею. Спасибо

> [1] Сергей М. © (17.12.07 10:36)
> uses Variants

Даже в этом случае, не ... = null, а VarIsNull(...)

P.S. А у TField есть IsNull property и Clear method. Так что можно и без null из Varians обойтись.

Null Найти похожие ветки