Browse Source

+ introduced Sw_String

git-svn-id: branches/unicodekvm@48593 -
nickysn 4 years ago
parent
commit
90b422b2d4
1 changed files with 10 additions and 0 deletions
  1. 10 0
      packages/fv/src/fvcommon.inc

+ 10 - 0
packages/fv/src/fvcommon.inc

@@ -142,6 +142,16 @@ TYPE
    Sw_Integer = LongInt;                              { Long integer now }
 {$ENDIF}
 
+{---------------------------------------------------------------------------}
+{               SHORT/ANSI/UNICODE SWITCHED STRING TYPE                     }
+{---------------------------------------------------------------------------}
+TYPE
+{$IFDEF FV_UNICODE}
+   Sw_String = UnicodeString;
+{$ELSE FV_UNICODE}
+   Sw_String = ShortString;
+{$ENDIF FV_UNICODE}
+
 {---------------------------------------------------------------------------}
 {                               GENERAL ARRAYS                              }
 {---------------------------------------------------------------------------}