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

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

Проверить тип указателя

Strate ©   (2007-06-15 13:03:00) 

Здравствуйте. Подскажите с таким вопросом: при заполнении ListView в свойство Data каждого ListItem'a я прописываю ссылки на экземпляры классов. Причём классы разные. Как мне потом проверить какой тип класса прописан в этом свойстве?

If (Item.Data IS TMyClass)не проходит даже компиляцию

If (TMyClass(Item.Data) IS TMyClass)работает неправильно.

Как сделать?

---

jack128   (2007-06-15 16:09:00) [1]

Strate ©   (15.06.07 13:03)
If (TMyClass(Item.Data) IS TMyClass) работает неправильно.
этот код эквивалентен if Assigned(Item.Data)
Ты же явно указываешь компилятору, что в Item.Data лежит экземпляр TMyClass, вот он и не генерирует код по проверке типа...

---

Anatoly Podgoretsky   (2007-06-15 13:32:00) [2]

> Strate  (15.06.2007 13:23:07)  [7]

Только в случае когда это действительно наследник от TObject

---

Strate   (2007-06-15 13:23:00) [3]

sniknik ©   (15.06.07 13:14) [2]
Плохиш ©   (15.06.07 13:15) [3]

Спасибо, всё работает :)

И вопрос про наследника снимается :)

---

Плохиш   (2007-06-15 13:16:00) [4]

> sniknik ©   (15.06.07 13:14) [2]

:-P

---

Strate   (2007-06-15 13:16:00) [5]

Johnmen ©   (15.06.07 13:06) [1]
Блин, жалко :(

Тогда следом такой вопрос: можно ли корректно написать наследника от TListItem, добавить в него пару полей и заполнить им TListView?

Я попробовал вот так:

TExListItem = class(TListItem)
public
 Field1 : Integer;
 Field2 : TMyClass1;
 Field3 : TMyClass2;
end;


Заполняю примерно так:

var
 NewListItem : TExListItem;
begin
 NewListItem := TExListItem.Create(ListView.Items);
end;

но при последующем обращении к NewListItem.SubItems выскакивает AccesViolation. В чём может быть проблема?

---

Сергей М.   (2007-06-15 13:16:00) [6]

try
 ShowMessage('Это объект класса ' + TObject(Item.Data).ClassName);
except
 ShowMessage('Это черт те что и сбоку бантик, но только не объект-наследник класса TObject';
end;

---

Плохиш   (2007-06-15 13:15:00) [7]


procedure TForm1.FormShow(Sender: TObject);
var
   test: Pointer;
begin
 ShowMessage(self.ClassName);
 test := self;
 ShowMessage(TObject(test).ClassName + ' - ' + BoolToStr(TObject(test) is TForm1, true));
end;


---

sniknik   (2007-06-15 13:14:00) [8]

попробуй приведи к базовому классу TObject или TComponent, типа TObject (Item.Data) is TMyClass
(в событиях где Sender: TObject то такая проверка срабатывает... а не получится, проверяй(/сравнивай) с ClassName обьекта (если уверен что все там обьекты) после приведения.

---

Johnmen   (2007-06-15 13:06:00) [9]

Никак. Там лежит нетипизированный указатель.

---

Наверх