Pop-Up Thingie
Sidebar
Home
Synchronet BBS Software
Forum
Files
Dark
Register
Log in
Username
Password
Sidebar
Forum
FidoNet
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)
Who's Online
Recent Visitors
Chris Jacobs
Friday, May 03, 2024 16:11:11
from
Almere Netherlands
via
Telnet
Guest
Friday, May 03, 2024 14:41:44
from
A
via
Telnet
Eino
Friday, May 03, 2024 14:19:21
from
Finland
via
Telnet
Foxyz
Friday, May 03, 2024 12:31:45
from
Nantes, France
via
Telnet
System Info
Sysop:
digital man
Location:
Riverside County, California
Users:
1,045
Nodes:
15 (
1
/
14
)
Uptime:
70:24:26
Calls:
236,252
Calls today:
12
Files:
67,658
D/L today:
766 files
(922M bytes)
Messages:
290,557