Delphi应用程序中最常见的构造是过程或函数。被称为例程的过程或函数是从程序中的不同位置调用的语句块。

简单地说，过程是一个例程，在函数返回值时不返回值。

函数的返回值由返回类型定义。在大多数情况下，您可以编写一个函数来返回一个值，该值可以是整数、字符串、布尔值或其他简单类型，返回类型也可以是数组、字符串列表、自定义对象实例或类似的类型。

请注意，即使函数返回一个字符串列表（字符串的集合），它仍然返回一个值：字符串列表的一个实例。

此外，Delphi例程可以有很多面：例程、方法、方法指针、事件委托、匿名方法。。。

函数能否返回多个值？

首先想到的答案是否定的，因为当我们想到一个函数时，我们想到的是一个返回值。

当然，上述问题的答案是肯定的。一个函数可以返回多个值。让我们看看如何。

var参数

以下函数可以返回多少个值，一个或两个？

function PositiveReciprocal(const valueIn : integer; var valueOut : real): boolean;

该函数显然返回一个布尔值（true或false）。第二个参数“valueOut”声明为“VAR”（变量）参数如何？

Var参数通过引用传递给函数，这意味着如果函数更改参数的值（代码调用块中的变量），函数将更改用于参数的变量的值。

要了解上述操作的工作原理，以下是实现：

function PositiveReciprocal(const valueIn: integer; var valueOut: real): boolean; begin result := valueIn > 0; if result then valueOut := 1 / valueIn; end;

“valueIn”作为常量参数传递，函数无法更改它，并且它被视为只读。

如果“valueIn”或大于零，“valueOut”参数被指定为“valueIn”的倒数值，函数结果为真。如果valueIn<=0，则函数返回false，“valueOut”不会以任何方式更改。

下面是用法：

var b : boolean; r : real; begin r := 5; b := PositiveReciprocal(1, r); //here: // b = true (since 1 >= 0) // r = 0.2 (1/5) r := 5; b := PositiveReciprocal(-1, r); //here: // b = false (since -1 end;

因此，正互易实际上可以“返回”2个值！使用var参数，可以让例程返回多个值。

输出参数

还有另一种使用“out”关键字指定by-reference参数的方法，如中所示：

function PositiveReciprocalOut(const valueIn: integer; out valueOut: real): boolean; begin result := valueIn > 0; if result then valueOut := 1 / valueIn; end;

PositiveReciprocalOut的实现与PositiveReciprocalOut相同，只有一个区别：“valueOut”是一个OUT参数。

当参数声明为“out”时，被引用变量“valueOut”的初始值将被丢弃。

下面是用法和结果：

var b : boolean; r : real; begin r := 5; b := PositiveReciprocalOut(1, r); //here: // b = true (since 1 >= 0) // r = 0.2 (1/5) r := 5; b := PositiveReciprocalOut(-1, r); //here: // b = false (since -1 end;

请注意，在第二次调用中，局部变量“r”的值是如何设置为“0”的。在函数调用之前，“r”的值被设置为5，但由于in参数声明为“out”，当“r”到达函数时，该值被丢弃，并且为参数设置了默认的“空”值（0表示实型）。

因此，您可以安全地为out参数发送未初始化的变量，这是不应该使用“var”参数的。参数用于向例程发送某些内容，但此处的“out”参数除外：），因此未初始化的变量（用于VAR参数）可能会有奇怪的值。

归还记录？

上述函数返回多个值的实现并不好。该函数实际上返回单个值，但也返回var/out参数的值（更确切地说是alters）。

因此，您可能很少希望使用按引用参数。如果需要函数的更多结果，可以让函数返回记录类型变量。

考虑以下事项：

type TLatitudeLongitude = record Latitude: real; Longitude: real; end;

还有一个假设函数：

function WhereAmI(const townName : string) : TLatitudeLongitude;

函数将返回给定城镇（城市、地区等）的纬度和经度。

执行工作将是：

function WhereAmI(const townName: string): TLatitudeLongitude; begin//use some service to locate "townName", then assign function result: result.Latitude := 45.54; result.Longitude := 18.71; end;

这里我们有一个函数，返回两个实数。好的，它返回1条记录，但该记录有2个字段。请注意，您可能有一个非常复杂的记录，它混合了各种类型，作为函数的结果返回。

就这样。因此，是的，Delphi函数可以返回多个值。