| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Null [D7, XP]
Alex8 © (2007-12-17 10:34:00)Уважаемые мастера !
В приведенном ниже фрагменте транслятор не
пропускает "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:50:00) [1]> [1] Сергей М. © (17.12.07 10:36)
> uses Variants
Даже в этом случае, не ... = null, а VarIsNull(...)
P.S. А у TField есть IsNull property и Clear method. Так что можно и без null из Varians обойтись.
Alex8 (2007-12-17 10:48:00) [2]> uses Variants
Все в порядкею. Спасибо
Сергей М. (2007-12-17 10:36:00) [3]uses Variants
DrPass (2007-12-17 10:36:00) [4]vaNull
| |
