testcondreturns.obs

格式化源码的最新板

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.