/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/attributes3.pas
23 строки
534 B
Ivan Bondarev
#2448
21 фев 2021, 13:40
21 фев 2021, 13:40
4817fd0
Код
Авторство
О чём код?
uses System.ComponentModel; type MyClassConverter = class (TypeConverter) end; MyClass = class private fMyField: MyClass; public [TypeConverterAttribute(typeof(MyClassConverter))] property MyProperty: MyClass read fMyField write fMyField; end; begin var o := new MyClass; o.MyProperty := o; var props := o.GetType().GetProperties(); var attrs := props[0].GetCustomAttributes(false); assert((attrs[0] as TypeConverterAttribute).ConverterTypeName.IndexOf('MyClassConverter') <> -1); end.