Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.07;
Скачать: CL | DM;

Вниз

Наивный вопрос о св-ве Tag   Найти похожие ветки 

 
Satrap ©   (2002-01-23 09:54) [0]

Рискуя навлечь на себя гнев профессионалов все же спрошу. В help-е прочел, что в свойстве Tag
можно располагать любые типы данных размером 4 байта. Пытаюсь поместить в Tag указатель, но
ничего не получается. Размещаю так

Tag:=LongInt(P); , где P:Pointer

Получаю указатель так

P:=@Tag;

После этого указатель указывает на все что угодно, кроме нужной переменной.
Чтоя делаю не так, подскажите, или может я не так понял help?


 
Виктор Щербаков ©   (2002-01-23 10:11) [1]

Tag := Integer(P);
P := Pointer(Tag);


 
Digitman ©   (2002-01-23 10:13) [2]

св-во Tag многих VCL-классов объявлено как Longint.
размерность типа Longint - 4 байта, размерность типа Pointer - тоже 4 байта. Поэтому для присвоения тэгу значения указательного типа достаточно сделать явное преобразование типа вот так :
var Ptr: Pointer;
..
Object.Tag := Longint(Ptr);

тем самым ты сообщаешь компилятору, что значение, хранящееся в переменной Ptr, ему следует рассматривать не как указатель, а как длинное целое (что вполне допустимо, т.к. размеры этих типов совпадают), и тем самым - подавить потенциальное сообщение компелятора о несоответствии типов в этом выражении


 
Satrap ©   (2002-01-23 11:30) [3]

Простите, погорячился, в следующий раз буду думать в 2 раза дольше. Или даже в три. Спасибо всем кто откликнулся.



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

Текущий архив: 2002.02.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
6-18945
Hawk
2001-11-13 18:49
2002.02.07
Connect между TServerSocket и TClientSocket по сети


1-18827
Philip
2002-01-25 00:50
2002.02.07
Не работает Debugger в делфи


4-19029
McSimm
2001-12-11 19:08
2002.02.07
LogonUser и привилегии


1-18815
AlexR_R
2002-01-22 17:53
2002.02.07
Где взять combobox c историей


14-18971
EternalWonderer
2001-12-19 09:42
2002.02.07
Администрирование СУБД Oracle