如何在RemObject中注册索引属性

Question

我想注册TStrings类的属性字符串。当我注册一个简单的属性时，我写:

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

OnCompImport事件

和

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

在OnExecImport事件中

。但是我没有找到任何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);