Имеется множество объектов разных классов, Property реализовано при помощи Let /Get
Необходимо их сохранять/загружать в XML
Для загрузки используется sub SaveProperty(ByRef Value as Variant)
Код |
---|
SaveProperty(Obj.X) SaveProperty(Obj.Y) SaveProperty(Obj.Z) |
Хотелось бы написать зеркальную процедуру
LoadProperty(ByRef Value as Variant)
Код |
---|
LoadProperty(Obj.X) LoadProperty(Obj.Y) LoadProperty(Obj.Z) |
Но присвоения значения не происходит, внутри процедуры Value принимает нужное значение, но на свойствах объекта это никак не отражается
PS: Просто реально много надо писать Save/Load, хотелось просто скопировать кучу строк Save, и заменить через ctrl+F на Load((