Delphi高手突破第二章，2，对象大小，类方法与类引用，错误的面向对象设计

================Delphi对象所占内存空间大小==============================

对象所占的内存空间大小取决于这个对象中的数据成员，加上一个4字节的VMT，成员函数不占空间。

注意：编译器对于无法合并的小于32位空间的数据域填充到32位大小，以加快存取速度。所以两个16位的word会被合并成一个integer。但一个单独16位的word会被扩展成一个integer

procedure TForm1.Button1Click(Sender: TObject);

var

Obj : TMyClass;

begin

Obj := TMyClass.Create();

with memo1.Lines do

begin

Add('对象大小：' + IntToStr(Obj.InstanceSize));

Add('对象所在地址 ：' + 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;

======================类方法和类引用================================

1. 定义类方法（静态方法），它无法操作对象的数据成员，加上class关键字：

class function TObject.ClassName: ShortString;

构造函数 create其实就是一个类方法。

2. 定义类引用（元类，更抽象）：

TMyClass = class;

TMyClassClass = class of TMyClass; // TMyClassClass就是类引用

用法：

TMyClass = class;

public

class procedure Show(); // 类方法

end;

TMyClassClass = class of TMyClass;

var

MyClass : TMyClassClass;

MyObj: TMyClass;

begin

MyObj := MyClass.Create();// 注意：引用类MyClass直接调用了类方法。其作用与MyObj := TMyClass.Create(); 完全相同

MyClass.Show();

MyObj.Free();

end;

主要用作类型参数化上，因为有时候在编译时无法得知某个对象的具体类型，而要调用其类方法（如构造函数），此时可以将类型作为一个参数来传递。

比如：Application.CreateForm(TForm1, Form1);

procedure TApplication.CreateForm(

// TComponentClass = class of TComponent; 类引用类型

InstanceClass: TComponentClass;

var Reference

);

允许在运行期确定类型，可以给程序带来莫大的灵活性。

3. Self代表类，因此可以调用类方法，但不能访问对象数据成员

class function ClassMethod1(): integer;

调用的时候可以 self.ClassMethod1();

====================面向对象的错误用法==================================

1. 定义一堆系统函数在一个类里。

其实它什么都没有封装，只是一堆函数的集合而已，是一个没有状态（数据成员）的类。

它不是活的，它所生成的每个对象之间没有任何差别。

2. 如果只有Get/Set函数的类，还是称不上类。

虽然状态是活的，但实际上什么没有隐藏任何东西，也没有简化任何东西。这样的类与record没有任何区别。

什么是设计优良的类？

一个文件操作类：具有状态信息，接口简单、明了、易用。它封装了所有对文件操作的算法，客户端程序不必限于复杂的文件操作的代码中。