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
Это я и хотел выяснить есть такая функция или её нужно написать.. :)

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

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

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