正在阅读：Delphi学习:OOP 中的双刃剑Delphi学习:OOP 中的双刃剑

2004-11-02 10:23 出处：CSDN 作者：lsuper 责任编辑：linjixiong

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