1. Forum
  2. FidoNet
  3. PASCAL LESSONS

  • Read again my question..

    From Toto@toto.net@1:261/20 to All on Sunday, March 19, 2017 12:32:06
    From: Ramine <toto@toto.net>
    Subject: Read again my question..

    Hello,

    I want to port this function from Delphi to FreePascal,
    the {$IfOpt O+} doesn't seem to work in FreePascal:


    function CompilerOptimizationS: String;
    begin
    Result:= 'Compiler optimization is ' +
    {$IfOpt O+}
    'enabled'
    {$Else}
    'disabled'
    {$EndIf}
    end;


    Thank you,
    Amine Moulay Ramdane.

    --- ViaMAIL!/WC v2.00
    * Origin: Neptune's Lair II ■ Olive Branch MS ■ winserver.org:232 (1:261/20)