Delphi学习:OOP 中的双刃剑

前几天看一份非常有名的商业控件的源码，发现一个非常有趣的用法：

  　Integer(xxx) := aaa;
 
　　Tttt(xxx) := bbb;
 
　　细细品味，发现利用这种用法往往可以收到意想不到的效果：
 
　　比如：

   TTestRec = record
    A, B, C: Integer;
  end;

  TTestCls = class
  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;

 　　你会发现，直接的你是改不了 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);
  finally
    Free;
  end;
end;

 　　至于“踩过界”那更不在话下：
 
 procedure TForm1.Button5Click(Sender: TObject);
var
  p1, p2: PInteger;
begin
  with TTestCls.Create do
  try
    p1 := @(Inner.A);
    // 内存中 FInner 与 FReadOnlyValue 其实只差 TTestRec 大小个字节
    Integer(p2) := Integer(p1) + SizeOf(TTestRec);
    Integer(p2^) := 100;
    Caption := TButton(Sender).Caption + ’ ReadOnlyValue := ’ + IntToStr(ReadOnlyValue);
  finally
    Free;
  end;
end;

 　　当然，指针不但可以破坏 oo，也能使您的代码更加的 oo：
 
  TTestRec = record
    A, B, C: Integer;
  end;
  PTestRec = ^TTestRec;
 
  TTestCls = class
  private
    FInner: TTestRec;
    FReadOnlyValue: Integer;
 
    function GetNewInner: PTestRec;
  public
    property Inner: TTestRec read FInner write FInner;
    property NewInner: PTestRec read GetNewInner;

最新相关文章

• ·DELPHI删除指定目录下指定扩展名的文件
• ·垃圾清理势在必行——Java垃圾收集算法
• ·经验技巧：分享两条Delphi开发经验
• ·Delphi调用WebServices(C#)代码
• ·delphi制作的托盘程序
• ·基于Delphi的“八皇后”问题动态实现
• ·半透明窗体的制作
• ·走近Inprise/Borland
• ·COM/DCOM中如何传递数组
• ·监视剪贴板内容
• ·Linux上最新的Kylix截屏画面
• ·怎样处理数据库中的NULL
• ·在delphi中如何限制鼠标的移动区域。
• ·Delphi + Word = 数据库 + 公文处理
• ·用InstallShield制作数据库应用系统的安装程序
• ·Delphi的优点