Код: Выделить всё
к.ПишиЗаписьЛЯ
typeDescAddress = НИЗКОУР.дайМетаданныеТипаВремениВыполнения
МетаПечать.поПоАдрВКонтексте
оит = АдресЗаписиИУМетаданныеТипаДляСборщикаМусораВRecordTypeDeclOffset(typeDescAddress)
пЗапись,знаяОбъявлениеТипа(оит)
Код: Выделить всё
пПеременную,принадлежащуюОбластиВидимости
(обходим метаданные области видимости)
пЗначение
(разыменовываем косвенное)
WriteRecord
ИзСмещенияУМетаданныеТипаДляСборщикаМусораВСмещениеRecordTypeDecl
hstb := УМетаданныеТипаДляСборщикаМусора.записьКРефлексииДляТипа
оит := АдресЗаписиИУМетаданныеТипаДляСборщикаМусораВRecordTypeDeclOffset(hstb)
пЗапись,знаяОбъявлениеТипа(оит)