testcondcompbreaks2.out

格式化源码的最新板

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.