Delhpi中的函数与过程

Delhpi中的函数与过程

函数与过程的概述

过程可以看作轻量级的函数。

从形式上讲：过程强调处理事务的流程而不是结果，所以过程没有返回值。而函数强调处理事务后的结果，所以有返回值。

从功能上讲：函数可以用作类的构造器即构造函数，而过程不具备这种功能。

除此之外，函数与过程并没有太大的差异。

注意：以下类容以函数为准，讲解一些需要注意的事项。

函数的形式参数的值是否可变

{使用关键字const后，形式参数的值便不可以改变，否则编译出错}
function TForm1.ConstFunction(const name: String): String;
begin
  {不可以这样：name := '鬼A魅'}
  Result := name;
end;

{默认情况下，形式参数的值是可以改变的}
function TForm1.NormalFunction(name: String): String;
begin
  name := '鬼A魅';
  Result := name;
end;

</pre><h2>函数的形式参数的值是传值还是传址</h2><div></div><pre name="code" class="delphi">var
  MyValue: Integer = 2;//全局变量

{传址，将内存单元MyValue的地址传递给address}
function TForm1.AddressFunction(var address: Integer): Integer;
begin
  {因为address中保存的是内存单元MyValue的地址，
    对address的操作就是对MyValue的操作，
    MyValude中的值会发生变化}
  address := address * 2;
  {这里再将内存单元MyValue的地址传递给Result,函数拿到的是MyValue中的值}
  Result := address;
end;

{传值，将内存单元MyValue的值复制一份传递给value}
function TForm1.ValueFunction(value: Integer): Integer;
begin
  {对value的操作是不会影响到MyValue的，
    如果此刻MyValue的值发生变化同样也不会影响到value}
  value := value * 2;
  Result := value;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //结果：2
  showMessage(IntToStr(MyValue));

  //结果：4，函数AddressFunction（）在这里会改变MyValue的值
  showMessage(IntToStr(AddressFunction(MyValue)));
  //结果：4
  showMessage(IntToStr(MyValue));

  //结果：8
  showMessage(IntToStr(ValueFunction(MyValue)));
  //结果：4
  showMessage(IntToStr(MyValue));
end;

函数的形式参数的开放模式

说明：可以通过数组来传递参数个数或者参数类型不确定的参数列表

{参数为数组，该数组的长度与数组中元素的类型均不确定}
function TForm1.LengthTypeParams(const MyArray: array of const): Integer;
var
  index: Integer;
  str: String;
begin
  {通过循环来处理数组中的所有元素}
  for index := Low(MyArray) to High(MyArray) do
    begin
      {因为类型不确定，所以我们需要判断数据的类型然后再进行相应的处理}
      case MyArray [index].VType of
        vtInteger: str := IntToStr(MyArray [index].VInteger);
        vtBoolean: str := BoolToStr(MyArray [index].VBoolean);
      end;
      showMessage(str);
    end;
end;

{参数为数组，该数组的长度不确定，但数组中元素的类型确定}
function TForm1.LengthParams(const MyArray: array of Integer): Integer;
var
  index: Integer;
begin
  {通过循环来处理数组中的所有元素}
  for index := Low(MyArray) to High(MyArray) do
    showMessage(IntToStr(MyArray[index]));
end;


procedure TForm1.Button2Click(Sender: TObject);

begin
  showMessage(BoolToStr(True));
  LengthParams([1, 3, 5]);//结果为：1，3，5
  LengthTypeParams([520, True]);//结果为：520， -1（True:-1;False:0);
end;

{元素类型可变的数组，元素的可能类型如下}
type
  TVarRec = record
    case Byte of
      vtInteger:    (VInteger: Integer; VType: Byte);
      vtBoolean:    (VBoolean: Boolean);
      vtChar:       (VChar: Char);
      vtExtended:   (VExtended: PExtended);
      vtString:     (VString: PShortString);
      vtPointer:    (VPointer: Pointer);
      vtPChar:      (VPChar: PChar);
      vtObject:     (VObject: TObject);
      vtClass:      (VClass: TClass);
      vtWideChar:   (VWideChar: WideChar);
      vtPWideChar:  (VPWideChar: PWideChar);
      vtAnsiString: (VAnsiString: Pointer);
      vtCurrency:   (VCurrency: PCurrency);
      vtVariant:    (VVariant: PVariant);
      vtInterface:  (VInterface: Pointer);
  end;

函数的形式参数的缺省模式

注意：声明函数时需要给那些缺省的参数赋初值

    function WithoutParams(param1: Integer; param2: Integer = 2; param3: Integer = 3) : Integer;

function TForm1.WithoutParams(param1, param2, param3: Integer): Integer;
begin
  showMessage(IntToStr(param1)+'|'+IntToStr(param2)+'|'+IntToStr(param3));
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  WithoutParams(1); //结果为：1|2|3
  WithoutParams(1, 4); //结果为：1|4|3
  WithoutParams(1, 4, 5); //结果为：1|4|5
end;

缺省参数后面的参数都将缺省。

函数的重载

说明：函数名字相同，参数列表不同。声明时需要使用关键字overload对同名的函数进行标注。

    function SameNameFunction(): Integer; overload;
    function SameNameFunction(param: Integer): Integer; overload;

  public
    { Public declarations }
    function SameNameFunction(): Integer; overload;
    function SameNameFunction(param: Integer): Integer; overload;