理解Delphi的类（一） - 从结构谈起

理解Delphi的类（一） - 从结构谈起2011-04-03万一unit Unit1;

interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
type
 TForm1 = class（TForm）
  Button1: TButton;
  procedure Button1Click（Sender: TObject）;
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
Type
 TMyRecord = record {定义结构}
  d: TDate;
 end;
 TMyClass = class  {定义类; 虽然这个类没有什么实际意义, 但就是一个类了}
  d: TDate;
 end;
procedure TForm1.Button1Click（Sender: TObject）;
var
 MyRec: TMyRecord; {声明一个结构变量}
 MyCls: TMyClass; {声明一个类变量, 也就是对象}
begin

{使用结构}

 MyRec.d := Now;
 ShowMessage（DateToStr（MyRec.d））;   {2008-1-11}
 ShowMessage（IntToStr（SizeOf（MyRec）））; {8; MyRec 结构的大小是 8}

{使用类}

 MyCls := TMyClass.Create;       {需要先手动建立, 因为类需要 实例化为对象才可以使用}
 MyCls.d := Now;            {2008-1-11}
 ShowMessage（DateToStr（MyCls.d））;
 ShowMessage（IntToStr（SizeOf（MyCls）））; {4; 怎么会是4？ 因为 MyCls 对象只是一 个指针！}

MyCls.Free; {用完后释放}

{结论:

结构（或叫记录）与类都是一种自定义类型;

结构直接使用, 内存是自动管理的;

类只是一个模型, 需要根据模型（也就是类）创建（Create）出对象来才能使用, 用完后需要手动释放内存;

（内存使用的规律应该是: 自动建立自动释放、手动建立手动释放）

结构与对象（类的实例）在内存中以不同的方式存放, 对象只是一个指针;

和结构相比, 类拥有这更强大的功能！

}

end;

end.