Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
_N_
18 / 18 / 15
Регистрация: 17.02.2013
Сообщений: 85
1

Specialize TList в Free Pascal

05.04.2017, 22:06. Просмотров 207. Ответов 1

Мне нежно сделать TList который содержит объекты моего класса и чтобы кастить ничего не надо было (намек на generics).
Мой код:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.04.2017, 22:06
Ответы с готовыми решениями:

Есть ли аналог модуля tpdate.tpu (Turbo Pascal) для Free Pascal
Внимание! Нужно срочно узнать название юнита для freepascal, который выполняет...

Необходимо перевести программу с Pascal ABC на free pascal
var a, factorial:longint; const c:array of char= ('0','1'); var res:string;...

В Turbo Pascal при нажатии на Run ничего не происходит, а в Free Pascal окно сразу же закрывается
Привет всем! У меня такая небольшая проблемка... Я установил Turbo Pascal и...

Не играют звуки в Turbo Pascal и Free Pascal
Uses CRT; Procedure mi; Begin sound(659); Delay(500); nosound; Delay(20);...

Программа на Turbo Pascal не запускается на Free Pascal
В теории должен быть симулятор перекрестка, приведенный ниже код работает через...

1
ФедосеевПавел
Модератор
3664 / 2033 / 842
Регистрация: 01.02.2015
Сообщений: 6,769
05.04.2017, 22:21 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.04.2017, 22:21

Чем Turbo Pascal отличается от Free Pascal
Обьясните, пожалуйста, чем Turbo Pascal отличается от Free Pascal? Заранее...

Различия между Turbo Pascal и Free Pascal (Turbo mode)
Собственно вот и вопрос. Чем отличается FPC Turbo Pascal mode от самого...

Книги по Free Pascal
Посоветуйте, пожалуйста, книги по Free Pascal, но не простейший уровень (про if...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru