第二章 Delphi面向对象的编程方法(三)

2.1.8.4 过程和函数的语句部分

过程或函数的语句部分由begin开始,end结束。函数需要一个返回值。可以将返回值赋给函数名称,也可以将返回值赋给Result变量。下面的例程将返回值赋给函数名称:

function CalculateInterest(Principal,InterestRate: Double):Double; begin

CalculateInterest := Principal * InterestRate;

end;

将返回值赋给Result变量也是可以的,则上面的程序改为: Result := Principal*InterestRate;

下面是这个函数的调用方法:

InterestEarned :=CalculateInterest(2000,0.012);

在Implementation后面的过程和函数,可以且只能被此库单元的事件处理过程使用。要让过程和函数可以被其他的程序库单元使用,则需要将过程或函数的标题部分放在库单元中的interface部分,而把含标题的整个过程或函数放在库单元的inplementation部分,并在要访问这个过程或函数的库单元的uses子句中加入说明这个过程或函数的库单元名称。

2.1.8.5 函数的递归调用

在Object Pascal中,过程或函数必须先说明再调用。上文的NoValue函数必须在使用它的事件处理过程之前说明和执行,否则程序会报告一个未知标识符的错误。

以上规则在递归调用时是例外情况。所谓递归调用,是指函数A调用函数B,而函数B又调用函数A的情况。在递归调用中,函数要进行前置,即在函数或过程的标题部分最后加上保留字forword。下文的例程是一个递归调用的典型例子:

implementation

var

alpha:Integer;

你可能喜欢

  • 面向对象编程
  • delphi试题
  • 面向对象建模方法
  • 面向对象技术与方法
  • 面向对象开发方法
  • SQL语言

第二章 Delphi面向对象的编程方法(三)相关文档

最新文档

返回顶部