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

Вниз

Variant To Int   Найти похожие ветки 

← →
NetKnight ©   (2003-04-07 09:56) [0]

Есть ли такая функция ? Или есть какие-то соображения по которым её нет ?

---

← →
Skier ©   (2003-04-07 10:01) [1]

>NetKnight
А зачем такая ф-ция ?
Ты можешь написать
var
AInt : Integer;
AVar : Variant;
begin
AInt := AVar;
end;
... и Delphi всё сделает за тебя...:)

---

← →
stone ©   (2003-04-07 10:03) [2]

VarAsType()

---

← →
NetKNight ©   (2003-04-07 17:48) [3]

--> Skier
Сделает, если значение не NULL - в таком случае эксепшн вылетает..

--> stone
Не получилось.. :(

var v:Variant; i:integer;
begin
v:="1";
i:=VarAsType(v,varInteger);
v:=null;
i:=VarAsType(v,varInteger); // Тут вылетает эксепшн
end;


---

← →
Skier ©   (2003-04-07 17:56) [4]

>NetKNight
А в чём проблема-то ?
Сделай проверку : if V <> null then I := V;
Можно ещё и в try-блок всё это поместить...

---

← →
NetKnight ©   (2003-04-08 14:09) [5]

--> Skier
Это я и хотел выяснить есть такая функция или её нужно написать.. :)

---

← →
stone ©   (2003-04-08 14:21) [6]

if not VarIsNull(v) then
i:=VarAsType(v,varInteger);

---

← →
evvcom ©   (2003-04-09 10:22) [7]

Дополнение к stone:
else i:=0;

---

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

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

Наверх

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