通过指针对只读属性写操作一例

最新推荐文章于 2022-07-27 22:48:50 发布

seagull327

最新推荐文章于 2022-07-27 22:48:50 发布

阅读量1.2k

点赞数 1

分类专栏：指针函数

指针函数专栏收录该内容

23 篇文章

订阅专栏

type
  TObj = class
  private
    FNumber: Integer;
  public
    property Number: Integer read FNumber;//只读属性，不可写
  end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  O: TObj;
begin
  O := TObj.Create;
  PInteger(@O.Number)^ := 2;//通过指针的方式访问
  ShowMessageFmt('%d', [O.Number]);
  O.Free;
end;

出自http://bbs.youkuaiyun.com/topics/390703654