Delphi 类与对象内存结构浅析(下)
对象空间
内存结构
对象的内存结构是固定的，对象创建完成后就无法改变。它主要存储了对象直属类的地址（等价于类的VMT），对象本身的成员数据，对象的接口方法表地址。结构如图所示：
说明：若类未声明接口，则对象空间不存储接口方法表地址。
类空间与对象空间的关系
类空间与对象空间：
示例：分析对象的基本内存结构
代码：
type
IMyInterface = interface(IUnknown)
['{06F3EA2C-E9C2-410E-97BE-D88ADF775EC3}']
procedure InterfaceMethod1;
end;
TMyObject = class(TInterfacedObject,IMyInterface)
private
FField1: Integer;
FField2: Boolean;
protected
procedure InterfaceMethod1;
public
procedure DynamicMethod1; dynamic;
procedure DynamicMethod2; dynamic;
procedure VirtualMethod1; virtual;
procedure VirtualMethod2; virtual;
end;
TMyObject2 = class(TMyObject)
private
FField3: Integer;
public
procedure DynamicMethod1; override;
procedure VirtualMethod1; override;
end;
内存结构：
TInterfacedObject内存结构如图：
TMyObject内存结构如图：
TmyObject2内存结构如图：
如图，TMyObject2的VirtualMethod1方法覆盖了父类的VirtualMethod1方法，故虚方法表中VirtualMethod1的指针指向了TMyObject2的VirtualMethod1方法。TMyObject2的DynamicMethod1方法覆盖了父类的DynamicMethod1方法，由于动态方法表只保存当前类的动态方法表，故表中只有一个DynamicM
相关文档：
//加一下按钮，加一个对话框就OK啦
procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
begin
if OpenDialog1.Execute then
begin
s := OpenDialog1.FileName;
WinExec( PChar(s), SW_NORMAL);
end;
end;
----------------------- ......
▼▲Delphi面向对象编程的20条规则(转载)
楼主ZyxIp（绝望中...）2003-09-02 14:28:07 在 Delphi / VCL组件开发及应用 提问
作者简介
Marco Cantu是一个知名的Delphi专家，他曾出版过《精通Delphi》系列丛书，《Delphi开发手册》以及电子书《精通Pascal》(该电子书可在网上免费获得)� ......
delphi指针简单入门:
看一个指针用法的例子：
1 var
2 X, Y: Integer; // X and Y 整数类型
3 ......
在窗体的OnMouseDown事件中加入下面几行代码即可
If Button = mbleft Then
begin
ReleaseCapture;
SendMessage(MainForm.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);
end;
若窗体的表面被别的控件履盖掉，则需要把上面的代码加入履盖的控件里面。 ......
