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

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

Как объект передать через интовую переменную? [D5]

newbie2 ©   (2006-09-07 12:27:00) 

интересует преобразование типов

iLink : integer;
myObject : TmyObject;
...
iLink := integer(@myObject);
...
myObject := TmyObject(? здесь как должно быть написано)

спасибо

---

default   (2006-09-07 12:37:00) [1]

эх, мастера громоздкого кода:)
var
 iLink : integer;
 myObject : TmyObject;
begin
 iLink := integer(myObject);
 myObject := TmyObject(iLink);
end;

проще надо быть

---

Zeqfreed   (2006-09-07 12:32:00) [2]

Ой, действительно, в [2] правильный вариант :)
Я как-то не обратил внимания, что @myObject это будет косвенный указатель.

---

Сергей М.   (2006-09-07 12:30:00) [3]

iLink : integer;
myObject : TmyObject;
...
iLink := integer(pointer(myObject));
myObject := TmyObject(pointer(iLink));

---

Zeqfreed   (2006-09-07 12:29:00) [4]

Pointer(iLink)

---

Наверх