Include once



Include once
Smart pascal source code
-------// include.inc //------ PrintLn('Hello include!'); ------------------------------ WriteLn('before'); {$INCLUDE_ONCE 'include.inc'} {$INCLUDE_ONCE 'include.inc'} WriteLn('after'); {$INCLUDE 'include.inc'} {$INCLUDE_ONCE 'include.inc'} WriteLn('done'); {<<< RESULT - CONSOLE LOG >>> ----------------------------- before Hello include! after Hello include! done ----------------------------- {<<<<<<<<< THE END >>>>>>>>>}