Delphi 2009增强之Exit函数

最新推荐文章于 2022-08-21 08:00:00 发布

转载最新推荐文章于 2022-08-21 08:00:00 发布 · 103 阅读

本文展示了在Delphi2009环境中两种实现相同功能的条件判断函数的方法。一种是在条件不满足时使用Exit提前退出函数，另一种则是直接通过Result赋值来实现。这两种方法都能有效地根据输入整数的正负返回不同的字符串。

在Delphi2009（Tiburon）中，以下两个函数做相同的事情：

function DoSomething(aInteger: integer): string;
begin
if aInteger < 0 then  begin
    Exit('Negative');
end;
  Result := 'Positive';
end;

function DoSomething1(aInteger: integer): string;
begin
if aInteger < 0 then  begin
    Result := 'Negative';
    Exit;
end;
  Result := 'Positive';
end;