Delphi 2009增强之Exit函数

weixin_33888907

于 2008-11-19 12:20:00 发布

阅读量82

点赞数

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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