Главная страница
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.007 c
7-19003
Dann
2001-11-02 02:15
2002.02.07
Памогите пожалуйсто . Как узнать общее количество установленной и свободной оперативной память?


14-18952
p@s
2001-12-18 12:17
2002.02.07
Пропали хинты


1-18868
SemFLY
2002-01-23 03:32
2002.02.07
Подскажите, где Delphi 6 скачать ?


1-18906
Alexfdfdfd
2002-01-24 00:47
2002.02.07
Народ , всё бы хорошо , но экзешники слишком велики.


1-18921
Arb
2002-01-24 11:20
2002.02.07
Komponenty dlya postroeniya grafikov