SimDesign

SimDesign software users forum
It is currently Thu Oct 23, 2014 11:05 am

All times are UTC + 1 hour




Post new topic Reply to topic  [ 3 posts ] 
Author Message
 Post subject: XE2 Support and 4.02
PostPosted: Thu Dec 15, 2011 2:55 am 
Offline
Junior Member

Joined: Wed Sep 23, 2009 1:05 am
Posts: 4
4.02 is missing the defines for XE2. It does compile (32 bit) without issue, once the defines are added. I haven't checked if it's happy with 64 bit.

The below is the file. I've modified to use CompilerVersion as it's the preferred method by Embarcadero. Assuming no code needs to be changed, this should compile in future versions of Delphi.

Lance Rasmussen


{ simdesign.inc

include file for many simdesign projects
default path: \simlib\general

Author: Nils Haeck M.Sc.
Copyright (c) 2007 - 2011 Simdesign B.V.

}

// unicode avoid implicit string cast warning
{$ifdef UNICODE}
{$WARN IMPLICIT_STRING_CAST OFF}
{$endif UNICODE}

// Delphi and FPC versions

// Freepascal
{$ifdef FPC}
{$MODE DELPHI}
{$define D7UP}
{$endif FPC}

// Delphi 5
{$ifdef VER130}
{$define D5UP}
{$endif}

//Delphi 6
{$IF CompilerVersion = 14}
{$define D5UP}
{$IFEND}

//Delphi 7
{$IF CompilerVersion = 15}
{$define D7UP}
{$IFEND}

//Delphi 8
{$IF CompilerVersion = 16}
{$define D7UP}
{$IFEND}

// Delphi 2005 / 9
{$IF CompilerVersion = 17}
{$define D7UP}
{$IFEND}

// Delphi 2006 / 10
{$IF CompilerVersion = 18}
{$define D7UP}
// D10 publishes OnMouseEnter / OnMouseLeave
{$define D10UP}
{$IFEND}

// Delphi 2007 Rad studio / 11
{$IF CompilerVersion = 18.5}
{$define D7UP}
{$define D10UP}
{$IFEND}


// Delphi 2009 / 12
// first UNICODE version, so then directive UNICODE is defined, no need for directive D12UP
{$IF CompilerVersion = 20}
{$define D7UP}
{$define D10UP}
{$IFEND}

// Delphi 2010 / 14
{$IF CompilerVersion = 21}
{$define D7UP}
{$define D10UP}
{$IFEND}

// Delphi XE / 15
{$IF CompilerVersion = 22}
{$define D7UP}
{$define D10UP}
{$define D15UP}
{$IFEND}

// Delphi XE2 / 16
{$IF CompilerVersion >= 23}
{$define D7UP}
{$define D10UP}
{$define D15UP}
{$IFEND}


Top
 Profile  
 
 Post subject: Re: XE2 Support and 4.02
PostPosted: Wed Dec 21, 2011 4:03 pm 
Offline
Member

Joined: Mon Aug 16, 2004 11:12 am
Posts: 28
Thanks Lance, that just tripped me up when I checked NativeXml out of SVN and I appreciated your quick fix!

Cheers,
Christian.


Top
 Profile  
 
 Post subject: Re: XE2 Support and 4.02
PostPosted: Wed Dec 21, 2011 6:52 pm 
Offline
Site Admin
User avatar

Joined: Tue Jan 20, 2004 3:59 pm
Posts: 1279
Location: Hellevoetsluis, Netherlands
Thanks too :)

I will update this in the upcoming version.

I do not have a 64bit machine / windows version so I cannot test if the XE2 64bit Delphi gives headaches with NativeXml. I do think there are relatively few pointer arithmetic problems but I am not entirely sure, and need to rely on customer accounts. Until now, no customers have complained about 64bit incompatibility.

Kind regards, Nils


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 3 posts ] 

All times are UTC + 1 hour


Who is online

Users browsing this forum: Bing [Bot] and 2 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group