Delphi 2009增强之Exit函数

在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;