Delphi 类与对象内存结构浅析(附件2)
*类的公开属性（代码）
示例：访问类的published属性
说明：vmtFieldTable（Published Field表）指向Published Field表有序排列，只存储当前类的PublishedField表，得到父类的Published Field表需要往上遍历。
注意：只有类型是类或接口的数据成员才可定义为published的访问级别
代码：
type
TMyObject = class(TObject)
private
FField1: Integer;
FField2: string;
FField3: array[0..2] of Integer;
published
Button1: TButton;
Memo1: TMemo;
Label1: TLabel;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
AObject: TMyObject;
//---
procedure _ShowDMTInfo(ALines: TStrings; AClass: TClass);
var
AClassAddress,AFTAddress: Integer;
AFieldCount,AFieldIndex,AFieldOffset,AFieldNameLen: Integer;
APos,i: Integer;
AFieldName: ShortString;
begin
AClassAddress := Integer(AClass);
with ALines do
begin
Add(Format('类名: %s ', [AClass.ClassName]));
//---
AFTAddress := Integer(PPointer(AClassAddress + vmtFieldTable)^);
if AFTAddress = 0 then
&n
相关文档：
delphi很早就已经可以进行三层的开发了. 但一直到现在, 网上这方面的东西太少 了. 要么太老, 甚至不完全正确. 例如:
如何进行多表更新(提交), 很多回复还是说用ADOConnection的事务, (如果要同时更新SQL SERVER和Oracle数据库的表怎么办).
当然也有说用SetComplete, SetAbort的. 但说的很简单, 其中的注意事项又是� ......
delphi指针简单入门:
看一个指针用法的例子：
1 var
2 X, Y: Integer; // X and Y 整数类型
3 ......
Delphi 能不能从Ring 3进入Ring 0?
楼主skyworld_xm（skyworld）2004-11-19 09:58:55 在 Delphi / Windows SDK/API 提问
Delphi 能不能从Ring 3进入Ring 0?
有例子吗?
多谢. 问题点数：100、回复次数：20Top
1 楼jinjazz（近身剪）回复于 2004-11-19 10:13:27 得 ......
1.因为KeyPreview默认是 False;我们这里需要响应键盘事件的话，需要将其修改为True；
所以KeyPreview:=True; 这对一些快捷键会有用。
在窗体属性上修改KeyPreview := True;
2.在窗体的FormKeyDown函数里写：
if KeyPreview then
Form将先响应键盘事件（在TEdit等控件之前）
else
除非Fo ......
