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

Вниз

Как узнать тип поинтера   Найти похожие ветки 

 
ljurik ©   (2004-10-21 12:55) [0]

Всем привет,
 У меня возник такои вопросик
есть 2 моих типа оба type = record
создаются 2 массива этих типов array1: array of TMyType1 ...
во время работы програмы создаю скажем ListView.Items.Add.Data := Addr(Array1[5]) и ListView.Items.Add.Data := Addr(Array2[5]);
Хотелосьбы при DoubleClick узнать какой имено тип был выбран, можно конечно создавать объекты но может можно на прямую?


 
TUser ©   (2004-10-21 13:07) [1]

Собственно напрямую узнать, какой тип данных выделен под некий указатель, конечно нельзя. Можно порекомендовать
1. Совершить попытку приведения типов - где-то возникнет ошибка, ее поймать except"ом - если поймалась, значит не то.
2. Наследовать все объекты от одного класса - а там прописать абстр. метод, который говорит, чо за тип (да собственно такой объект есть - TObject и метод там не абстрактный).


 
Гаврила ©   (2004-10-21 13:08) [2]

У обоих записей первым полем - тип
при проверке читать только первое поле


 
GuAV ©   (2004-10-21 13:44) [3]

1. Совершить попытку приведения типов - где-то возникнет ошибка, ее поймать except"ом - если поймалась, значит не то.
А если не поямалась значит или то или не то. Плохой способ.


 
Anatoly Podgoretsky ©   (2004-10-21 14:11) [4]

Тег нужен


 
TUser ©   (2004-10-21 14:18) [5]


> Как узнать тип поинтера

Я тут, кстати, подумал, что его тип - pointer


 
ljurik ©   (2004-10-22 17:51) [6]

Всем большое спасибо за ответы буду дальше рожать


 
ljurik ©   (2004-10-22 17:51) [7]

Удалено модератором



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

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

Наверх




Память: 0.48 MB
Время: 0.049 c
14-1098432889
ZEX
2004-10-22 12:14
2004.11.07
Stream - новое поколение


14-1097865611
Knight
2004-10-15 22:40
2004.11.07
Рожать или не рожать... вот в чём сабж


3-1097246118
Step[B.M.]
2004-10-08 18:35
2004.11.07
Как получить выходной параметр процедуры не используя SUSPEND


1-1098466615
GuAV
2004-10-22 21:36
2004.11.07
Написать в TLabel.Caption многострочный техт.


1-1098696921
hyper_omsk
2004-10-25 13:35
2004.11.07
delphi 8 (pocketPC)