Delphi修改对象中非读方法的只读属性

 

哈，最近发现一个修改只读属性的方法，就是通过指针。

不过还有条件，只能修改变量方式的属性，如：

property ReadOnlyProperty: string read FReadOnlyProperty;

如果是读方法的属性则不能修改：

property ReadOnlyByFunc: string read GetReadOnlyByFunc;

例：

TMyClass = class
  FProA: string;
public
  property ProA: string read FProA;
end;

var
  pp: ^string;    //定义指针
begin
  PP := @TestClass.ProA;    //TestClass 是 TMyClass的实例
  pp^ := 'This readonly property was modified!';
end;

其他类型的属性也可以噢。