Текущий архив: 2009.03.29;
Скачать: CL | DM;

Вниз

определение variant   Найти похожие ветки 

← →
Mops   (2009-02-02 09:51) [0]

в 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 ...
     ...

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

---

← →
Palladin ©   (2009-02-02 09:55) [1]

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

---

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

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

---

← →
Сергей М. ©   (2009-02-02 10:11) [3]

> Mops   (02.02.09 09:51)  


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

---

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

Текущий архив: 2009.03.29;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.047 c