ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Подключить только один юнит в прикладном коде
11 сообщений из 11, страница 1 из 1
Подключить только один юнит в прикладном коде
    #39958988
ma1tus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ma1tus
Участник
Доброго ) Сабж - цель; есть юнит с сustom-классом, есть юниты с его наследниками.

В публичном интерфейсе custom-класса используются типы из его же юнита, вроде того:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
unit uMySuperClass; 

type
  TMyOption = (opOne, opTwo, ...);
  TMyOptions = set ot TMyOption;

TCustomMyClass = class
public
  property MyOptions: TMyOptions read ... 
end;



В программе хочется подключать только юнит класса-наследника, но что делать с используемыми типами ?

Навскиду - два варианта:

1) лепить алиасы в каждом юните с наследником,
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
unit uMySubClass1;

uses
  uMySuperClass;

type
  TMyOptions = MySuperClass.TMyOptions;
  // и т.д.


или

2) навертеть через fluent interface, типа
Код: pascal
1.
MyOptions.AddOne.AddTwo...



Может - что-нибудь ещё / иначе как-то поменять интерфейс custom-класса ?
...
Рейтинг: 0 / 0
18.05.2020, 16:01
| Ответить | Цитировать | Написать  
Подключить только один юнит в прикладном коде
    #39958990
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
Типы вынести в отдельный модуль.
...
Рейтинг: 0 / 0
18.05.2020, 16:04
| Ответить | Цитировать | Написать  
Подключить только один юнит в прикладном коде
    #39958991
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
ma1tusВ программе хочется подключать только юнит класса-наследника, но что делать с
используемыми типами ?

Перехотеть и понять, что компилятор не в состоянии использовать типы без их определения.
При этом он не хочет собирать эти определения из целого дерева модулей, ограничиваясь
только непосредственно подключенными.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
18.05.2020, 16:04
| Ответить | Цитировать | Написать  
Подключить только один юнит в прикладном коде
    #39959003
ma1tus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ma1tus
Участник
wadman,
:(
необходимость вспоминать, что надо подключать... "что-то там еще ?" - это то, чего хотелось избежать / "объехать на какой-нибудь не самой кривой" :-) .
...
Рейтинг: 0 / 0
18.05.2020, 16:14
| Ответить | Цитировать | Написать  
Подключить только один юнит в прикладном коде
    #39959005
ma1tus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ma1tus
Участник
Dimitry Sibiryakov,

да, реальность сурова. Спасибо.
...
Рейтинг: 0 / 0
18.05.2020, 16:15
| Ответить | Цитировать | Написать  
Подключить только один юнит в прикладном коде
    #39959020
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
ma1tus
необходимость вспоминать, что надо подключать... "что-то там еще ?" - это то, чего хотелось избежать / "объехать на какой-нибудь не самой кривой" :-) .

С такими замашками пора в руководители проектов метить.
...
Рейтинг: 0 / 0
18.05.2020, 16:32
| Ответить | Цитировать | Написать  
Подключить только один юнит в прикладном коде
    #39959023
ma1tus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ma1tus
Участник
wadman,

Пора, брат, пора (с)
...
Рейтинг: 0 / 0
18.05.2020, 16:37
| Ответить | Цитировать | Написать  
Подключить только один юнит в прикладном коде
    #39959037
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
Только с наследниками ИМХО.
...
Рейтинг: 0 / 0
18.05.2020, 17:01
| Ответить | Цитировать | Написать  
Подключить только один юнит в прикладном коде
    #39959111
ma1tus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ma1tus
Участник
ma1tus
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
TCustomMyClass = class
public
  type
    TMyOption = (opOne, opTwo);
    TMyOptions = set ot TMyOption;
private
  FMyOptions: TMyOptions;
public
  property MyOptions: TMyOptions read ... 
end;


Длинно, но, собственно - по условию задачи )
Код: pascal
1.
MySubClass1.MyOptions := [TMySubClass.TMyOption.opOne, TMySubClass.TMyOption.opTwo];
...
Рейтинг: 0 / 0
18.05.2020, 20:27
| Ответить | Цитировать | Написать  
Подключить только один юнит в прикладном коде
    #39959218
ma1tus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ma1tus
Участник
alekcvp
Только с наследниками ИМХО.
да, всё-таки - этот вариант; другие - "рвут шаблон".
...
Рейтинг: 0 / 0
19.05.2020, 03:06
| Ответить | Цитировать | Написать  
Подключить только один юнит в прикладном коде
    #39959219
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
Dimitry Sibiryakov
Перехотеть и понять, что компилятор не в состоянии использовать типы без их определения.
При этом он не хочет собирать эти определения из целого дерева модулей, ограничиваясь
только непосредственно подключенными.

Тут недавно выяснилось что в случае инлайн переменных новый компилятор таки умеет использовать типы без их определения в uses.
...
Рейтинг: 0 / 0
19.05.2020, 03:16
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Подключить только один юнит в прикладном коде
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39959003&tid=2038312]:
 0ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 202ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 224ms
total:  501ms
созд. / загр.: 501ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]