1. Forum
  2. Fidonet
  3. PASCAL LESSONS

  • I have a question about FreePascal..

    From Toto@toto.net@1:2320/100 to All on Sun Mar 19 12:31:24 2017
    From: Ramine <toto@toto.net>
    Subject: I have a question about FreePascal..

    Hello,

    I want to port this function from Delphi to FreePascal,
    the {$IfOpt O+} doen'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)
    * Origin: LiveWire BBS - Synchronet - LiveWireBBS.com (1:2320/100)
  • From Phongphanp31@gmail.com@1:2320/100 to All on Mon Mar 20 01:52:50 2017
    Subject: Re: I have a question about FreePascal..
    From: kongp <phongphanp31@gmail.com>

    On Monday, March 20, 2017 at 1:31:26 AM UTC+7, Ramine wrote:
    Hello,

    I want to port this function from Delphi to FreePascal,
    the {$IfOpt O+} doen'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.

    Re-write your code and the option {$ O+/-} should be at the most top of page .

    --- ViaMAIL!/WC v2.00
    # Origin: Neptune's Lair II * Olive Branch MS * winserver.org:232 (1:261/20)
    * Origin: LiveWire BBS - Synchronet - LiveWireBBS.com (1:2320/100)