Specialize TList в Free Pascal

@_N_ · Регистрация: 17.02.2013

Author24 — интернет-сервис помощи студентам

Мне нежно сделать TList который содержит объекты моего класса и чтобы кастить ничего не надо было (намек на generics).
Мой код:

Pascal

program TestSpecialize;
 
uses
  Classes;
 
type
  TMyClass = class
  public
    X : Integer;
    Y : Integer
  end;
 
  TMyClassList = specialize TList<TMyClass>; // 13 строка, здесь ошибка
var
  MyList : TMyClassList;
begin
  MyList:=TMyClassList.Create();
  MyList.Free();
end.

Но он не компилится с ошибкой:
main.pas(13,43) Error: Identifier not found "TList$1"
Вроде все очень просто и по доке: http://wiki.freepascal.org/Generics, а не работает.
Может кто-то обяснит что я делаю не так?
Lazarus 1.6+dfsg-1, Free Pascal 3.0.0, XUbuntu 16.04

ФедосеевПавел · 05.04.2017, 22:21

Pascal

program TestSpecialize;
{$mode objfpc}
uses
  Classes,fgl;
 
type
  TMyClass = class
  public
    X : Integer;
    Y : Integer
  end;
 
  TMyClassList = specialize TFPGList<TMyClass>; // 13 строка, здесь ошибка
var
  MyList : TMyClassList;
begin
  MyList:=TMyClassList.Create();
  MyList.Free();
end.

	05.04.2017, 22:21