| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

определение variant [D7, XP]

Mops ©   (2009-02-02 09:51:00) 

в D7 все работало, перехожу на D2009 и почему то не работает определение типа variant

procedure SaveSetting(Sec,Key:string;value:variant);
begin
 if (VarType(value)<>varInteger) and
    (VarType(value)<>varBoolean) and
    (VarType(value)<>varDate) and
    (VarType(value)<>varDouble) and
    (VarType(value)<>varString) then exit;
     if (VarType(value)=varInteger) then ...
     if (VarType(value)=varBoolean) then ...
     ...

подскажите, с чем это может быть связано?

---

Сергей М.   (2009-02-02 10:11:00) [1]

> Mops   (02.02.09 09:51)  


Вообще-то для ordinal-типов, к каковым относится тип рез-та, возвращаемого ф-цией VarType(), применим оператор case..of.

---

Сергей М.   (2009-02-02 09:58:00) [2]

И у отладчика, похоже, тоже)

---

Palladin   (2009-02-02 09:55:00) [3]

У него сегодня выходной.

---

Наверх