缺省值参数

　　缺省值参数是在Dephi 4中被引进的（当调用有缺省值参数的过程和函数时，可以不提供参数）。为了声明一个有缺省值参数的过程或函数，在参数类型后跟一个等号和缺省值，示例如下：

　　Procudure HasDefVal（S：String；I：Integer=0）；

　　HasDefVal（）过程能用两种方式调用。

　　第一种方式：两个参数都指定：

　　HasDefVal（‘Hello’，26）；

　　第二种方式：指定一个参数S，对I则用缺省值：

　　HasEelVal（‘hello’）；//对于I，使用缺省值

在使用缺省值参数时要遵循下列几条规则：

　　1.有缺省值的参数必须在参数列表的最后。在一个过程或函数的参数列表中，没有缺省值的参数不能在有缺省值的参数后面。

　　2.有缺省值的参数必须是有序类型、指针类型、集合类型。

　　3.有缺省值的参数必须是数值参数或常量参数，不能是引用（Out）参数或无类型参数。

　　有缺省值参数的最大好处是，在想一个已存在的过程和函数增加功能时，不必关心向后兼容的问题，

　　例如：假定在一个单元中有个函数为AddInts(),它将两个数相加。

　　Function AddInts（I1，I2 ： integer）：integer；

　　begin　　

　　　　Result：= I1 + I2；

　　end；

　　如果想修改这个函数的功能使它能实现三个数相加，可能感到麻烦，因为增加一个参数将导致已经调用该函数的代码不能编译。由于有了有缺省值的参数，能扩展AddInts（）函数的功能而不必担心它的兼容性，示例如下：

　　Function AddInts（I1，I2 ：integer； I3： integer =0）；

　　begin

　　　　Rusult ：= I1 + I2 + I3；

　　end；

范例：

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



function AddInt(I1,I2 : Integer ;I3:Integer=0):integer;

begin

  Result := I1+I2+I3;

end;



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

  ShowMessage(IntToStr(AddInt(1,2)));

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

  ShowMessage(IntToStr(AddInt(1,2,3)));

end;



end.