Delphi TObject实现了一个InstanceSize()方法
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
FMember5 : Integer;
FMember6 : Integer;
FMember7 : WORD;
FMember8 : Integer;
{ Public declarations }
end;
TMyClass = class //创建一个类
Public
FMember1 : Integer;
FMember2 : Integer;
FMember3 : WORD;
FMember4 : Integer;
End;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Obj : TMyClass;
begin
Obj := TMyClass.Create(); //创建TMyClass类的实例
with memo1.Lines do
begin
//对象大小以及每个数据成员的地址输出到Memo中
Add('Myclass对象大小：' + IntToStr(Obj.InstanceSize));
Add('Myclass对象所在地址 ：' + IntToStr(Integer(Obj)));
Add('FMember1所在地址：' + IntToStr(Integer(@Obj.FMember1)));
Add('FMember2所在地址：' + IntToStr(Integer(@Obj.FMember2)));
Add('FMember3所在地址：' + IntToStr(Integer(@Obj.FMember3)));
Add('FMember4所在地址：' + IntToStr(Integer(@Obj.FMember4)));
end;
Obj.Free();
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
with memo1.Lines do
begin
Add('窗体对象大小：' + IntToStr(form1.InstanceSize));
Add('窗体对象所在地址 ：' + IntToStr(Integer(form1)));
Add('FMember5所在地址：' + IntToStr(Integer(@form1.FMember5)));
Add('FMember6所在地址：' + IntToStr(Integer(@form1.FMember6)));
Add('FMember7所在地址：' + IntToStr(Integer(@form1.FMember7)));
Add('FMember8所在地址：' + IntToStr(Integ
相关文档：
查找另外一个窗口的句柄： handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄
查找子窗体：childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题');
另外有个枚举子窗体的API，EnumChildWindows(主创体句柄,@回调函数,用户参数);
用这个函数需要自己写一个回调的函数，比如：
function EnumChil ......
在设计数据库应用程序的时候，经常需要将一些信息从程序中独立出来，以保证程序的可移植性。其中最重要的信息就是数据库的连接参数。
在Delphi中，获得正确的数据库连接参数的方法十分简单，你只需要建立一个数据模块，在其中添加一个ADO Connection,双击之，然后在弹出的窗口中选“Use Connection String”，单 ......
首先用Notepad或Resource workshop 4.5建立RC文件。 结构如下 /****************************************************************************
rcdemo.rc
produced by Borland Resource Workshop
*****************************************************************************/
# ......
DELPHI中操作ACCESS数据库(建立.mdb文件,压缩数据库)
以下代码在WIN2K,D6,MDAC2.6下测试通过,
编译好的程序在WIN98第二版无ACCESS环境下运行成功.
//声明连接字符串
Const
SConnectionString
= 'Provider=M ......
根据Delphi提供的有关 DLL编写和调用的帮助信息，你可以很快完成一般的 DLL编写和调用的 应用程序。本文介绍的主题是如何编写和调用能够传递各种参数（包括对象实例）的 DLL。例如， 主叫程序传递给 DLL一个ADOConnection 对象示例作为参数， DLL中的函数和过程调用通过该对象 实例访问数据库。
需要明确一些基本概念。对� ......
