Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
_N_
18 / 18 / 7
Регистрация: 17.02.2013
Сообщений: 85
#1

Specialize TList в Free Pascal - Free Pascal

05.04.2017, 22:06. Просмотров 125. Ответов 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
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.04.2017, 22:06
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Specialize TList в Free Pascal (Free Pascal):

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

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

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

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

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

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

1
ФедосеевПавел
Модератор
2496 / 1399 / 582
Регистрация: 01.02.2015
Сообщений: 4,748
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
Привет! Вот еще темы с ответами:

Уроки Free Pascal - Free Pascal
Подскажите книгу по Free Pascal. Или какие ни будь уроки на сайтах (только не видио).

Книги по Free Pascal - Free Pascal
Посоветуйте, пожалуйста, книги по Free Pascal, но не простейший уровень (про if и else), а что-нибудь более 'продвинутое'.

#define и Free Pascal - Free Pascal
Бодрого дня, господа. Подскажите, пожалуйста - в Си есть директива #define. Можно ли ее рассматривать, как в Паскале const. Т. е. с Си...

Базовые настройки Free Pascal - Free Pascal
Посоветуйте толковое руководство по Free, в котором описано, как сделать базовые настройки(подключение модулей, библиотек и всего...


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

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

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