症状

在某些情况下,当对包含退出命令的内联函数进行调用时,并且直接在WriteLn()中使用内联函数的返回值,编译器将报告错误消息,

“dcc” exited with code 1.

甚至最糟糕的是,Delphi IDE终止而没有任何确认.

function ProcessNumber(const iNumber: Integer): Boolean; inline;
begin
  if iNumber = 0 then begin
    Result := False;
    Exit;
  end;
  // some code here ...
  Result := True;
end;

procedure Test;
begin
  writeln( ProcessNumber(0) );
end;

begin
  Test;
  ReadLn;
end.

但是,如果内联函数的返回值存储在变量中,然后该变量在WriteLn()中使用,则不会发生问题.

procedure Test;
var
  b: Boolean;
begin
  b := ProcessNumber(0);
  writeln(b);
end;

问题

这是编译器的错误吗？
>如果这是一个错误,是否有一个解决方案来安全退出内联函数？