现在的位置: 首页 > 综合 > 正文

Delphi 2009增强之Exit函数

2012年05月03日 ⁄ 综合 ⁄ 共 274字 ⁄ 字号 评论关闭

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

抱歉!评论已关闭.