Приведение типа Variant

← →
Быстрый Шу (2005-03-17 15:13) [0]

Доброе время суток!
Вопрос таков:
Есть у меня функция, возвращающая тип Variant:

function SomeFunction(SomeParams:String):Variant; var SomeObject : TSomeObjectType; begin Result := SomeObjectType; end;
Так вот, он мне ругается:
Incompatible types: "Variant" and "TSomeObjectType"
Как мне указать, что в Result должен быть объект типа TSomeObjectType ?

← →
jack128 © (2005-03-17 15:19) [1]

Result := Integer(SomeObject);

Обратно: SameObject := TSameObjectType(Integer(VariantValue));

← →
Быстрый Шу (2005-03-17 15:24) [2]

Спасибо. Вроде работает.

Приведение типа Variant Найти похожие ветки