Форум: "Основная";
Текущий архив: 2005.03.27;
Скачать: [xml.tar.bz2];

Вниз

Приведение типа 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]

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

---

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

Форум: "Основная";
Текущий архив: 2005.03.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.041 c