Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Можно ли получить ссылку на класс используя атрибуты? / 5 сообщений из 5, страница 1 из 1
31.05.2019, 23:20
    #39821056
Arshehremen
Arshehremen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли получить ссылку на класс используя атрибуты?
Всем привет!
Задумал коварное действие, но уже 3 или 4 часа сижу гуглю и не могу найти ответ.
Собственно "Можно ли получить ссылку на класс используя атрибуты?"
Например, для кода ниже хочу получить ссылки на TDog и TCat
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
     
TSAttribute = class(TCustomAttribute)
     private
          FName: string;
     public
          constructor Create(const Name : string);
          property Name : string read FName write FName;
     end;

TSomething = class
end;

[TS('Dog')]
TDog = class(TSomething)
end;

[TS('Cat')]
TCat = class(TSomething)
end;



В конечном итоге хочу это использовать, чтобы генерить юниты - с классами объектов, в идеале ничего не добавляя в другие классы.
Сейчас в "главном модуле" это выглядит следующим образом:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
...
var DogID, CatID:integer;
implementation
uses DogUnit,CatUnit;

constructor TMain.Create();
     begin
          inherited;
          objectTypes := TTypesList.Create ;//TTypesList это TList
          objectTypes.Add(TDog); DogID:=objectTypes.Count-1; {0}
          objectTypes.Add(TCat);  CatID :=objectTypes.Count-1; {1}
     end;



при добавлении очередной собаки нужно добавлять модуль в юзесы и строчку в список. Хочу сделать инверсально.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2019, 23:24
    #39821059
softwarer
softwarer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли получить ссылку на класс используя атрибуты?
Arshehremenпри добавлении очередной собаки нужно добавлять модуль в юзесы и строчку в список. Хочу сделать инверсально.
Это делается куда проще.

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
unit Dog;

interface

implementation

uses Animals;

type
  TDog = class(TAnimal)
  ...

initialization
  RegisterAnimal(TDog);

end.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2019, 00:13
    #39821068
Arshehremen
Arshehremen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли получить ссылку на класс используя атрибуты?
softwarer, вау, спасибо. не знал про такую фичу!

Но остаётся вопрос с добавлением нужного класса в список. Для этого я и хотел использовать атрибуты.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2019, 00:20
    #39821069
softwarer
softwarer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли получить ссылку на класс используя атрибуты?
ArshehremenНо остаётся вопрос с добавлением нужного класса в список.
RegisterAnimal решает этот вопрос.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2019, 00:55
    #39821071
Arshehremen
Arshehremen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли получить ссылку на класс используя атрибуты?
softwarer, точно, спасибо! Всё получилось! Сначала подумал, что функция в initialization нужна чтобы зарегистрировать класс.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Можно ли получить ссылку на класс используя атрибуты? / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 653ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2039425]:
 0ms
get settings:
 7ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 396ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 21ms
get tp. blocked users:
 1ms
others: 208ms
total:  653ms
x
x
Закрыть


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