16,748
社区成员
发帖
与我相关
我的任务
分享
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
Fa: Integer;
public
{ Public declarations }
property a: Integer read Fa;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(IntToStr(a))
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
PInteger(@a)^ := 123;{通过指针方式修改只读属性的值}
end;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
Fa: Integer;
public
{ Public declarations }
property a: Integer write Fa;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
address: Integer;
procedure TForm1.Button1Click(Sender: TObject);
var
x: Integer;
begin
asm{读a的值}
mov eax, self
add eax, [address]
mov eax, [eax]
mov x,eax
end;
showmessage(IntToStr(x))
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
a := 123;
asm{取a的地址}
@@:
mov eax, offset @@
mov eax,[eax-8]
mov address,eax
end;
end;