Как проверить, экземпляром какого класса является элемент TList?

← →
Aleksandr. (2004-06-17 14:32) [0]

В экземпляре TList элементы могут быть разных пользовательских классов, наследников TObject. Как при обращении к элементу TList узнать, какого он класса?

← →
default © (2004-06-17 14:35) [1]

через оператор is, ClassName...

← →
Тимохов © (2004-06-17 14:38) [2]

l: tlist;
...
if tobject(l[i]) is TYuorClass then ...

ЗЫ надо быть уверенным, что в l лежат именно потомки tobject, а не ссылка например на записи. Иначе будет швах.

← →
Романов Р.В. © (2004-06-17 14:38) [3]

F1 - TObject.ClassName, TObject.ClassType

← →
icWasya © (2004-06-17 16:47) [4]

лучше используй TObjectList

← →
Dolphin1 (2004-06-17 16:55) [5]

ClassName - возвращает строку с именм класса

а is - не очень хорошб лучше проверять на InheritsFrom()

И если в одном списке лежат обьекты разных пользовательских классов то лучше чтобы все они наследовались от одного интерфейса

> наследовались

имхо реализовывали.

← →
Aleksandr. (2004-06-18 11:57) [7]

Спасибо за консультации. Тогда истчо вопрос: является ли для компилятора очевидным, что все объекты, объявленные как
type TObject1 = class A : integer; B : integer; ... end; TObject2 = class C : string; D : integer; ... end;
являются потомками TObject? Или их надо объявлять для этого как class (TObject)?

Да!!! Объявлять как class (TObject) необходимости нет.

Как проверить, экземпляром какого класса является элемент TList? Найти похожие ветки