2
0
Эх сурвалжийг харах

+ introduced Sw_String

git-svn-id: branches/unicodekvm@48593 -
nickysn 4 жил өмнө
parent
commit
90b422b2d4

+ 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                              }
 {---------------------------------------------------------------------------}