Conditionals $IFNDEF

Smart 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
}