1 2 下一页
前几天看一份非常有名的商业控件的源码，发现一个非常有趣的用法：
Integer(xxx) := aaa;
Tttt(xxx) := bbb;
细细品味，发现利用这种用法往往可以收到意想不到的效果：
比如：
TTestRec = record
A, B, C: Integer;
end;
TTestCls = class
private
FInner: TTestRec;
FReadOnlyValue: Integer;
private
FInner: TTestRec;
FReadOnlyValue: Integer;
function GetNewInner: PTestRec;
public
property Inner: TTestRec read FInner write FInner;
property NewInner: PTestRec read GetNewInner;
property ReadOnlyValue: Integer read FReadOnlyValue;
end;
public
property Inner: TTestRec read FInner write FInner;
property NewInner: PTestRec read GetNewInner;
property ReadOnlyValue: Integer read FReadOnlyValue;
end;
你会发现，直接的你是改不了 aTestCls.Inner.A 的（编译时 Delphi 直接报错，因为 delphi 7 中两个 recode 赋值是 copy memory 而不是简单的“传址”！
procedure TForm1.Button1Click(Sender: TObject);
begin
with TTestCls.Create do
try
// Inner.A := 10;
Caption := TButton(Sender).Caption ' A := ' IntToStr(Inner.A);
finally
Free;
end;
end;
可是，如果我们知道在访问这个 Inner 时 delphi 在编译直接 FInner 的地址，那么，结合上面那种有趣的用法：
procedure TForm1.Button3Click(Sender: TObject);
var
p: PInteger;
begin
with TTestCls.Create do
try
p := @(Inner.A);
Integer(p^) := 100;
Caption := TButton(Sender).Caption ' A := ' IntToStr(Inner.A);
finally
Free;
end;
end;
更进一步，利用指针竟然可以突破 oo 对 private 的保护：
procedure TForm1.Button4Click(Sender: TObject);
var
p: PInteger;
begin
with TTestCls.Create do
try
p := @(ReadOnlyValue);
Integer(p^) := 1000;
Caption := TButton(Sender).Caption ' ReadOnlyValue := ' IntToStr(ReadOnlyValue);
上一篇： 用Delphi制作DLL的方法
下一篇： 教你如何用Delphi注册快捷方式
1 2 下一页
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
