面试-SizeOf一个对象会得到什么？

相关资料:

1.https://zhidao.baidu.com/question/283124338.html

 unit Unit1;
 
 interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, Menus, StdCtrls;
 
 type
   TForm1 = class(TForm)
     Button1: TButton;
     Edit1: TEdit;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     FInteger :Integer;
     FBool :Boolean;
     FDouble: Double;
     { Public declarations }
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.dfm}
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   I: Integer;
 begin
   I := ;
   I := SizeOf(FInteger);
   ShowMessage(IntToStr(I)); //
   I := SizeOf(FBool);
   ShowMessage(IntToStr(I)); //
   I := SizeOf(FDouble);
   ShowMessage(IntToStr(I)); //
   I := SizeOf(Button1);
   ShowMessage(IntToStr(I)); //
   I := SizeOf(Edit1);
   ShowMessage(IntToStr(I)); //4
   I := SizeOf(Form1);
   ShowMessage(IntToStr(I)); //
   I := SizeOf(TForm1);
   ShowMessage(IntToStr(I)); //
   I := Self.InstanceSize;
   ShowMessage(IntToStr(I)); //
 end;
 
 end.