Скачать: CL | DM;

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

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

---

← →
ЮЮ ©   (2007-12-17 10:50) [4]

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


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

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c