Погледни в Help-a на Delphi за "class of".
Разликата грубо казано:
TCollectionItemClass = class of TCollectionItem;
TCollectionItemDescendant = class(TCollectionItem);
procedure Foo1(ItemClass: TCollectionItemClass);
procedure Foo2(ItemDesc: TCollectionItemDescendant);
едната процедура ще я извикаш с
Foo1(TCollectionItemDescendant); // името на клас, наследник на TCollectionItem
другата
var Item: TCollectionItemDescendant;
Foo2(Item); // променлива от тип TCollectionItemDescendantРедактирано от mn_t на 10.01.04 09:28.