(delphi11最新学习资料) Object Pascal 学习笔记---第4章第2.1节（ 带结果的Exit例程）

4.2.1 带结果的Exit例程

​ 我们已经看到，从函数中返回结果所使用的语法与 C 语言家族的语法截然不同。不仅语法不同，行为也不同。为结果（或函数名）赋值并不像return语句那样终止函数。Object Pascal 开发人员经常利用这一特性，将 Result 用作临时存储空间。例如，与其编写：

efunction ComputeValue: Integer;
varValue: Integer;
beginValue := 0;while ...Inc(Value);Result := Value;
end;

​ 您可以省略临时变量，直接使用Result。无论Result在函数终止时具有什么值，都是函数返回的值：

function ComputeValue: Integer;
beginResult := 0;while ...Inc(Result);
end;

​ 另一方面，有些情况下，您可能希望赋一个值并立即退出过程，例如在特定的if分支中。如果需要赋值函数结果并停止当前执行，您必须使用两个单独的语句，给Result赋值，然后使用Exit关键字。

​ 如果您记得上一章中“使用Break语句和Continue语句改变程序执行流程”的“FlowTest”示例的代码，这可以被重写成一个函数，将对Break的调用替换为对Exit的调用。我在以下代码片段的ParamsTest示例中进行了这个更改：

function CharInString(S: string; Ch: Char): Boolean;
varI: Integer;
beginResult := False;for I := Low(S) to High(S) doif S[I] = Ch thenbeginResult := True;Exit;end;
end;

​ 在Object Pascal中，您可以用特殊调用Exit来替换if块的两个语句，并传递给它函数的返回值，以一种类似于C语言的return语句的方式。因此，您可以以更紧凑的方式编写上述代码（也因为使用单个语句可以避免begin-end块）：

function CharInString2(S: string; Ch: Char): Boolean;
varI: Integer;
beginResult := False;for I := Low(S) to High(S) doif S[I] = Ch thenExit(True);
end;

注解: 在Object Pascal中，Exit是一个函数，因此您必须在括号中包围要返回的值，而在C样式语言中，return是一个编译器关键字，无需括号。