testcondreturns.out

来自「格式化源码的最新板」· OUT 代码 · 共 26 行

unit TestCondReturns;

interface

uses
  Dialogs;

implementation

function DoTestCondReturns: boolean;
var
  foo, bar: boolean;
begin
  if foo then
  begin
  {$IFDEF DEBUG}
  MessageDlg('Foo!',
  mtInformation, [mbOK], 0);
  {$ENDIF}
    Result := True;
    bar    := False;
  end;
end;

end.