[Jcl-checkins-diff] SF.net SVN: jcl:[3263] trunk/jcl/devtools/jpp/JppState.pas

[<ou...@us...>]

Revision: 3263
          http://jcl.svn.sourceforge.net/jcl/?rev=3263&view=rev
Author:   outchy
Date:     2010-07-21 12:19:09 +0000 (Wed, 21 Jul 2010)

Log Message:
-----------
Unicode compatibility with C++ compilers.

Modified Paths:
--------------
    trunk/jcl/devtools/jpp/JppState.pas

Modified: trunk/jcl/devtools/jpp/JppState.pas
===================================================================
--- trunk/jcl/devtools/jpp/JppState.pas	2010-07-19 14:26:12 UTC (rev 3262)
+++ trunk/jcl/devtools/jpp/JppState.pas	2010-07-21 12:19:09 UTC (rev 3263)
@@ -43,10 +43,10 @@
 // Modifications by Robert Rossmair:  Addition of TTriState type, TriState methods
 unit JppState;
 
+{$I jcl.inc}
+
 interface
 
-{$I jcl.inc}
-
 uses
   SysUtils, Classes,
   {$IFDEF UNITVERSIONING}
@@ -355,11 +355,11 @@
     PI := GetPropInfo(Self, ASymbol);
     if Assigned(PI) then
     begin
-      {$IFDEF DELPHI8_UP}   	  
+      {$IFDEF COMPILER8_UP}
       PV := GetPropValue(Self, PI);
-      {$ELSE}
+      {$ELSE ~COMPILER8_UP}
       PV := GetPropValue(Self, PI^.Name);
-      {$ENDIF}
+      {$ENDIF ~COMPILER8_UP}
       if Boolean(PV) then
         Result := ttDefined
       else
@@ -484,17 +484,17 @@
     if Assigned(PI) then
     begin
       if Value = ttDefined then
-        {$IFDEF DELPHI8_UP}   	  
+        {$IFDEF COMPILER8_UP}
         SetPropValue(Self, PI, True)
-        {$ELSE}
+        {$ELSE ~COMPILER8_UP}
         SetPropValue(Self, PI^.Name, True)
-        {$ENDIF}
+        {$ENDIF ~COMPILER8_UP}
       else
-        {$IFDEF DELPHI8_UP}   	  
+        {$IFDEF COMPILER8_UP}
         SetPropValue(Self, PI, False);
-		{$ELSE}
+        {$ELSE ~COMPILER8_UP}
         SetPropValue(Self, PI^.Name, False);
-		{$ENDIF}
+        {$ENDIF ~COMPILER8_UP}
       Exit;
     end;
   end;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.