Delphi 类与对象内存结构浅析(附件1)
附件资料
*类的内存信息（代码）
示例：获取类信息
说明：比对通过类地址以及通过类方法获取信息的效果。
代码：
type
TMyObject = class(TObject)
private
FData: Integer;
protected
procedure Test1;virtual;
procedure Test2;dynamic;
public
procedure Test;
published
procedure Test3;
end;
procedure TMyObject.Test;
var
i:Integer;
begin
ShowMessage('静态方法');
end;
procedure TMyObject.Test1;
begin
ShowMessage('虚方法');
end;
procedure TMyObject.Test2;
begin
ShowMessage('动态方法');
end;
procedure TMyObject.Test3;
begin
ShowMessage('published方法');
end;
procedure TForm1.Button1Click(Sender: TObject);
//---
{procedure _ShowClassInfo(ALines: TStrings; AClass: TClass);
begin
with ALines do
begin
Add(Format('类指针地址: %d ', [Integer(AClass)]));
//---
if AClass.ClassParent = nil then
Add('父类名: Nil')
else
Add(Format('父类名: %s', [AClass.ClassParent.ClassName]));
相关文档：
//加一下按钮，加一个对话框就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很早就已经可以进行三层的开发了. 但一直到现在, 网上这方面的东西太少 了. 要么太老, 甚至不完全正确. 例如:
如何进行多表更新(提交), 很多回复还是说用ADOConnection的事务, (如果要同时更新SQL SERVER和Oracle数据库的表怎么办).
当然也有说用SetComplete, SetAbort的. 但说的很简单, 其中的注意事项又是� ......
//声明:
GetClassName(
hWnd: HWND; {指定窗口句柄}
lpClassName: PChar; {缓冲区}
nMaxCount: Integer {缓冲区大小}
): Integer; {返回类名大小; 失败返回 0}
//测试1: 新建一个工程, 主窗口的类名默认是 TForm1, 用程序获取一下看看
var
ps: array[0..254] of Char;
begin
GetCl ......
对象空间
内存结构
对象的内存结构是固定的，对象创建完成后就无法改变。它主要存储了对象直属类的地址（等价于类的VMT），对象本身的成员数据，对象的接口方法表地址。结构如图所示：
说明：若类未声明接口，则对象空间不存储接口方法表地址。
类空间与对象空间的关系
类空间与对象空间：
示例：分析对象的� ......
