Delphi 2009 中 Exit 的新用法(转)

描述了 Exit 在 Tiburon 中的新语法，看代码：

function foo(const I: Integer): string;
begin
  if I < 0 then Exit('负数');
  Result := '正数';
end;

function foo(const I: Integer): string;
begin
  if I < 0 then begin
    Result := '负数';
    Exit;
  end;
  Result := '正数';
end;

可以看到，Exit 的语言构造发生了变化，可以像函数一样带一个参数，参数类型就是 Result 的类型，退出函数的同时返回函数的值，与 Java、C# 等其它语言的 Return 功能一样。