- Код: Выделить всё
...
Type
{ BList }
Generic BList<T> = Class(TList)
..
Public
Function Get(Const aIndex: Integer): T;
..
Type BDimensionsList = Specialize BList<BDimensionClass>;
..
Var
aList: BDimensionList;
Begin
..
aList.Get(0).
В этом месте вызываю "Завершить идентификатор" (Ctrl+Space) и получаю
Units/bdimensionunit.pas(276,24) Error: обнаружен некорректный указатель .
Это значительно снижает прелесть дженериков...