Conditionals $IFNDEF



Conditionals $IFNDEF
Pas2JS pascal source code
procedure Test({$ifdef TEST}{$endif}s : String); begin WriteLn(s); end; {$DEFINE TEST} type TDummy = class {$IFNDEF TEST} bug here {$ENDIF} end; { main.pas } procedure TApplication.RunApp; Begin // -----> SIMPLE CONDITIONAL <------- Test(TDummy.ClassName); { <<<<<<<<<<<< CONSOLE OUTPUTS >>>>>>>>>>>>>>>>>>> TDummy }