testcondcompbreaks.out

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

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.