| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Приведение типа Variant [D7, Win2k]

Быстрый Шу ©   (2005-03-17 15:13:00) 

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


function SomeFunction(SomeParams:String):Variant;
var
SomeObject : TSomeObjectType;

begin
 Result := SomeObjectType;
end;

Так вот, он мне ругается:
Incompatible types: "Variant" and "TSomeObjectType"
Как мне указать, что в Result должен быть объект типа TSomeObjectType ?

---

Быстрый Шу   (2005-03-17 15:24:00) [1]

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

---

jack128   (2005-03-17 15:19:00) [2]

Result := Integer(SomeObject);

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

---

Наверх