Как зарегистрировать индексированное свойство в RemObject?

Question

Я хочу зарегистрировать недвижимость Строки класса TStrings. Когда я зарегистрировать простое свойство, я пишу:

ACompiler.FindClass(ClassName).RegisterProperty(PropertyName,PropertyTypeName, PSPropType); 

в OnCompImport Event

и

ARuntimeImporter.FindClass(ClassName).RegisterPropertyHelper(GetterCodeAddress, SetterCodeAddress, PropertyName); 

в OnExecImport Event. Но я не нашел методов RegisterIndexedProperty и RegisterIndexedPropertyHelper.

Answer 1

Необходимо написать: тип свойства, тип индекса 1, тип индекса 2 и т. Д. В параметрах типа свойства. Пример:

ACompiler.FindClass('TStringList').RegisterProperty('Strings',' String Integer',iptRW); 

И в методе реализации Значение типа свойства должно быть в первую очередь. Например:

procedure GetStringsMethod(Self: TObject; var AValue: string; AIndex: Integer); 

procedure SetStringsMethod(Self: TObject; const AValue: string; AIndex: Integer);