Delphi学习:OOP 中的双刃剑

Visited times , Welcome to Data Mining Forum & Data Mining Expert & Data Mining Tools

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

　　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;
    property ReadOnlyValue: Integer read FReadOnlyValue;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
with TTestCls.Create do
try
    NewInner.A := 10;
    Caption := TButton(Sender).Caption + " A := " + IntToStr(Inner.A);
finally
    Free;
end;
end;

　　看看现实中的非 oo 的代码：

　　利用“指针方案”把 Txxx 改成 Pxxx 后竟然对原来的代码一点影响都没有，而使之更加的 oo

[数据挖掘专家] [数据挖掘研究院] [数据挖掘论坛] [数据挖掘实验室]

上一篇：Delphi图象截取编程示例(1)
下一篇：Delphi的ClientDataSet使用模糊过滤

最新评论共有 0 位网友发表了评论 , 查看所有评论

发表评论( 不能超过250字，需审核，请自觉遵守互联网相关政策法规。 )

数据挖掘网站导航	数据挖掘论坛导航
数据挖掘工具数据挖掘论坛 DataCruncher - Cognos MineSet - MathSoft Intelligent Miner - GainSmarts Sqlserver - SAS - Clementine CART - Weka - WizSoft NeuroShell - ModelQuest data mining tools - Darwin 数据挖掘交友数据挖掘博客	数据挖掘工具数据挖掘资源数据挖掘技术算法数据挖掘相关期刊、会议研究院联盟合作专区数据挖掘基础与相关技术数据挖掘厂商与就业数据挖掘研究者乐园知名厂商数据挖掘工具资料国内数据挖掘实验室 Foreign Data Mining Lab