testcondcompbreaks2.obs

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

unit testcondcompbreaks;interface implementation {$IFDEF BAR_RAISED}
uses SysUtils;

{$ENDIF}const{$IFDEF SYM2} SOCK_IT_TO_ME = 'Black socks'; {$ENDIF}no_socks='No Sandals'
;procedure somestuff;begin showmessage('Some stuff...');end;{$IFDEF HAS_STUFF}
procedure MoreStuff;
begin
  SomeStuff;
end;

{$ENDIF}end.