Delphi2009增强之Exit函数_Delphi

您所在的位置：程序员俱乐部 > 编程开发 > Delphi > Delphi2009增强之Exit函数

Delphi2009增强之Exit函数

2011/7/26 7:57:45 程序员俱乐部我要评论(0)

摘要：InTiburon,thefollowingtwofunctionsdoexactlythesamething:在Delphi2009（Tiburon）中，以下两个函数做相同的事情：functionDoSomething(aInteger:integer):string;beginifaInteger<0thenbeginExit(‘Negative’);end;Result:=‘Positive’;end;functionDoSomething(aInteger:integer)
标签：函数 2009 Delphi Delphi2009 Exit函数

In Tiburon, the following two functions do exactly the same thing:
在Delphi2009（Tiburon）中，以下两个函数做相同的事情：

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



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