testcondcompbreaks.obs

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

unit testcondcompbreaks;interface implementation uses sysutils,{$IFDEF BAR_RAISED}
 Classes, {$ENDIF}dialogs;{$IFDEF SYM2} const
  SOCK_IT_TO_ME = 'Black socks'; {$ENDIF}
procedure somestuff;begin showmessage('Some stuff...');end;procedure morestuff;begin
{$IFDEF HAS_STUFF}
  SomeStuff;
  {$ENDIF}end;end.