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