Delphi中的类和对象

2.对象是一个地地道道的指针
   从物理角度来看，对象就是一段地址空间，这段地址空间的标志就是我们定义的
类“变量”。所以我们可以把对象看成一个类的指针。大家知道，要访问一个指针就
必须对指针初始化。对象的既然是一个指针，也必须对它进行初始化。如何初始化呢？
还是说指针的初始化吧。对于一个指针可以有以下两种方法来进行初始化：
(一)直接分配
var
  Pint:^Integer;
begin
  new(Pint);
  Pint^:=12;
  Dispose(Pint);
end;
(二)指向别的已分配空间的变量
var
  Pint:^Integer;
  i:integer;
begin
  i:=12;
  Pint:=@i;
end;
有趣的是，对象这种“指针”也有两种方法初始化
(一)直接分配
var
  AForm:TForm;
begin
  AForm:=TForm.Create(Self);
  AForm.ShowModal;
  AForm.Free;
end;
(二)指向别的已分配空间的实例
var
  AForm:TForm;
begin
  AForm:=Self;
  AForm.Caption:='知道了吗？为什么会这样呢';
end;
file://这个AForm和它所指向的Form实例共用同一段地址单元，所有对AForm操作都将反应
file://到它所对应的Form实例之上。
说到这，我们就很好解释为什么过程(函数)的对象参数传递时，象这样这的格式:
(一)PRocedure SetEdit(var Edit:TEdit);
    begin
      Edit.Text:='11';
    end;
和
(二)procedure SetEdit(Edit:TEdit);
    begin
      Edit.Text:='11';
    end;
效果是一样的了。(一)是把一个TEdit实体作为参数引用的形式进行参数传递，(二)是
把一个TEdit的对象“指针”作为参数传递。

3.类可以理解成一种特殊的数据类型
    我们知道数据类型可以进行强制类型转化，类即然可以理解成一种数据类型，那
么它也应该可以进行类类型转。比方如下代码为一个按钮(Button1)的单击事件：
(一)
procedure TForm1.Button1Click(Sender: TObject);
var
  ACaption:String;
begin
  ACaption:=TButton(Sender).Caption;//Sender从TObject转化到TButton
  ShowMessage(Format('You clicked ''%s'' !',[ACaption]));
end;
在这段代码中，Sender是一个TObject型对象，我们把它强制转化为TButton类型。如你
看得不清楚，可以参照一下我们通常的数据类型的转化：
(二)
procedure TForm1.Button1Click(Sender: TObject);
var
  S_Str:String;
  P_Str:PChar;
begin
  S_Str:='I love China!';
  P_Str:=PChar(S_Str);
  S_Str:='';
  S_Str:=String(P_Str);
  ShowMessage(S_Str);
end;
但是在面对对象的程序设计过程中，强调的是安全性，如(一)的强制类型转化存在着不
安全性。如下的代码，依然是写Button1.OnClick事件：
(三)
procedure TForm1.Button1Click(Sender: TObject);
begin
  TCanvas(Sender).Brush.Color:=clRed;
end;
执行一下，就会出错。这样岂不是违背了面对对象的程序设计的宗旨了吗？没有，即然
是类，就应该有类特定的类强制转化方法，改(三)的方法如下：
(四)
procedure TForm1.Button1Click(Sender: TObject);
begin
  (Sender as TCanvas).Brush.Color:=clRed;
end;//用as来转化，as就可以把错误抓住，不会影响程序的正常运行。
说到这我顺便提一下VB吧，如果学过VB的人可能觉得其中的控件数组比较爽，尤其是在
编写象计算器这样的程序时。但Delphi给我们什么呢？答案是Delphi也能快速简洁的开
发出这样的程序。如是操作：在窗体上放一个Edit和十个Button，把Button.Caption分
别设为'0','1','2',...'9'，然后写一个按钮的OnClick事件如下：
(五)
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:=Edit1.Text+(Sender as TButton).Caption;
end;
把别的Button的OnClick事件都关联到Button1Click上，运行程序。拍拍手!这样计算器
程序的雏形就具备了。我们用Delphi的类类型转化，开发出来类似VB中的控件数组功能
的程序也是很棒的嘛!:)

4.抽象类和它的实例
    Delphi中有一种类为抽象类，你不能天真的直接为它创建一个实例。如：TStrings
类。如下代码：
(一)
var
  StrLst:TStrings;
begin
  StrLst:=TStrings.Create;
  StrLst.Add('I love Japan!');
  StrLst.Free;
end;
这是不对的。那如何为诸如TStrings这样的抽象类构造实例呢？答案是借助它的非抽
象子类。我们知道TStrings有一个TStringList非抽象子类。我们就可以这样作：
(二)
var
  StrLst:TStrings;
begin
  StrLst:=TStringList.Create;//借助其子类的构造器，对StrLst进行子类化
  StrLst.Add('I love China!');
  StrLst.Free;
end;
(三)
var
  StrLst:TStringList;
begin
  StrLst:=TStringList.Create;
file://放弃吧，不要再用抽象类，完全用它的“儿子”来你的事吧 
  StrLst.Add('I love China!');
  StrLst.Free;
end;

5.类是一种对数据和操作高度的封装机制
(一)数据封装
unit Unit2;

interface
type
  TEmployee=class
  private
    FName:String;
  public
    Constructor Create;
    function  GetName:String;
    procedure SetName(AName:String);
  end;
implementation

{ TEmployee }

constructor TEmployee.Create;
begin
  FName:='BlazingFire';
end;

function TEmployee.GetName: String;
begin
  Result:=FName;
end;

procedure TEmployee.SetName(AName: String);
begin
  FName:=AName;
end;

end.
如上代码，我们就用了一个过程SetName和一个函数GetName对私有变量FName进行完全的
封装。我们要对FName操作就只有这样：
uses
  unit2;
procedure TForm1.Button1Click(Sender: TObject);
var
  AEmployee:TEmployee;
begin
  AEmployee:=TEmployee.Create;
  AEmployee.SetName('Rose');//利用SetName来设置FName
  MessageBox(Handle,PChar(AEmployee.GetName),'Empoyee',0);
  file://用GetName来访问FName
  AEmployee.Free;
end;
(二)操作封装
unit Unit2;

interface
type
  TDivision=Class
  public
    file://多态性让你的程序更据有“柔韧性”
    function GetDiv(Num1,Num2:Double):Double;overload;
    function GetDiv(Num1,Num2:integer):integer;overload;
  end;
implementation

{ Division }

function TDivision.GetDiv(Num1, Num2: Double): Double;
begin
  try
    Result:=Num1/Num2;
  except
    Result:=0;//提供弹形处理机制，处理除数为0情况
  end;
end;

function TDivision.GetDiv(Num1, Num2: integer): integer;
begin
  try
    Result:=Num1 div Num2;
  except
    Result:=0;//提供弹形处理机制，处理除数为0情况
  end;
end;

end.
如上代码我们通过类的多态性机制把除法分别处理成整除和非整除，又通过异常处理屏
去除数为0的情况，从而保证操作的安全性，在调用时，我们就可以这样来：
uses
  unit2;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Division:TDivision;
  IValue:integer;
  FValue:Double;
begin
  Division:=TDivision.Create;
  IValue:=Division.GetDiv(1,2);
  FValue:=Division.GetDiv(1.0,2);
  IValue:=Division.GetDiv(1,0);
  FValue:=Division.GetDiv(1.0,0);
  Division.Free;
end;
 
6.类是一种代码重用机制
    比方在5中我们想对这个类加上一个GetAdd函数来作加法运算就可以用类的继承。如
下写就可以了：
(一)
unit Unit2;

interface
type
  TDivision=Class
  public
    function GetDiv(Num1,Num2:Double):Double;overload;
    function GetDiv(Num1,Num2:integer):integer;overload;
  end;
type
  TOperation=Class(TDivision)
  public
    function GetAdd(Num1,Num2:Double):Double;
  end;
implementation

{ Division }

function TDivision.GetDiv(Num1, Num2: Double): Double;
begin
  try
    Result:=Num1/Num2;
  except
    Result:=0;
  end;
end;

function TDivision.GetDiv(Num1, Num2: integer): integer;
begin
  try
    Result:=Num1 div Num2;
  except
    Result:=0;
  end;
end;

{ TOperation }

function TOperation.GetAdd(Num1, Num2: Double): Double;
begin
  Result:=Num1+Num2;
end;

end.
这里我们从TDivision继承了一个子类TOperation。TOperation就可以即有TDivsion
公有方法GetDiv，又有自己的独特的方法GetAdd。这是类为我们提供的“鱼和熊掌兼
得”之法。不错吧。:)