Приведение типа TObject к integer

atruhin

Как сделать приведение типа? А то integer к TObject приводится а наоборот не получилось, пришлось функцию написать

-=Den=-

Приведение типов работает только для Классов, к стандартным типам приводить нельзя.

-=Serg=-

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

atruhin

А сам смысл приведения прост.
Используем где либо TStringList
Items.AddObject(ItemName,TObject(ItemID));
далее
ID := integer(Items.Object[Index])
Я такую конструкцию использую довольно часто.