理解和使用功能和程序

您是否曾经发现自己一遍又一遍地编写相同的代码来执行事件处理程序中的一些常见任务？对是时候让你了解一个程序中的程序了。让我们调用这些小程序子例程。...

您是否曾经发现自己一遍又一遍地编写相同的代码来执行事件处理程序中的一些常见任务？对是时候让你了解一个程序中的程序了。让我们调用这些小程序子例程。

female web developer working on computer

子程序简介

子程序是任何编程语言的重要组成部分德尔福也不例外。在Delphi中，通常有两种类型的子例程：函数和程序。函数和过程之间的通常区别在于函数可以返回值，而过程通常不会返回值。函数通常作为表达式的一部分调用。

请看以下示例：

procedure SayHello(const sWhat:string) ; begin ShowMessage('Hello ' + sWhat) ; end; function YearsOld(const BirthYear:integer): integer; var Year, Month, Day : Word; begin DecodeDate(Date, Year, Month, Day) ; Result := Year - BirthYear; end;

定义子例程后，我们可以调用它们一次或多次：

procedure TForm1.Button1Click(Sender: TObject) ; begin SayHello('Delphi User') ; end; procedure TForm1.Button2Click(Sender: TObject) ; begin SayHello('Zarko Gajic') ; ShowMessage('You are ' + IntToStr(YearsOld(1973)) + ' years old!') ; end;

职能和程序

正如我们所看到的，函数和过程都像迷你程序。特别是，它们可以有自己的类型、常量和变量声明。

仔细查看（杂项）SomeCalc函数：

function SomeCalc (const sStr: string; const iYear, iMonth: integer; var iDay:integer): boolean; begin ... end;

每个过程或函数都以一个标题开头，该标题标识过程或函数，并列出例程使用的参数（如果有）。参数列在括号中。每个参数都有一个标识名，通常有一个类型。分号将参数列表中的参数彼此分开。

sStr、iYear和iMonth称为常量参数。函数（或过程）无法更改常量参数。iDay作为var参数传递，我们可以在子例程中对其进行更改。

函数返回值，因此必须在头的末尾声明返回类型。函数的返回值由函数名的（最终）赋值给出。由于每个函数都隐式地具有一个与函数返回值类型相同的局部变量Result，因此赋值给Result与赋值给函数名具有相同的效果。

定位和调用子程序

子程序总是放在单元的实现部分。这样的子例程可以由事件处理程序调用（使用），也可以由后面定义的相同单元中的子例程调用（使用）。

注意：单位的uses子句告诉您它可以调用哪些单位。如果我们希望Unit1中的特定子例程可供另一个单元（如Unit2）中的事件处理程序或子例程使用，我们必须：

将Unit1添加到Unit2的uses子句中
将子例程标题的副本放在Unit1的接口部分。

这意味着其标题在接口部分中给出的子例程在作用域中是全局的。

当我们在自己的单元内调用函数（或过程）时，我们将其名称与所需的任何参数一起使用。另一方面，如果我们调用一个全局子例程（在其他单位中定义，例如MyUnit），我们将使用单位名称后跟句点。

... //SayHello procedure is defined inside this unit SayHello('Delphi User') ; //YearsOld function is defined inside MyUnit unit Dummy := MyUnit.YearsOld(1973) ; ...

注意：函数或过程可以有自己的子例程嵌入其中。嵌入式子例程是容器子例程的本地子例程，不能由程序的其他部分使用。比如：

procedure TForm1.Button1Click(Sender: TObject) ; function IsSmall(const sStr:string):boolean; begin //IsSmall returns True if sStr is in lowercase, False otherwise Result:=LowerCase(sStr)=sStr; end; begin //IsSmall can only be uses inside Button1 OnClick event if IsSmall(Edit1.Text) then ShowMessage('All small caps in Edit1.Text') else ShowMessage('Not all small caps in Edit1.Text') ; end;