Browse Source

+ introduced Sw_String

git-svn-id: branches/unicodekvm@48593 -
nickysn 4 năm trước cách đây
mục cha
commit
90b422b2d4
1 tập tin đã thay đổi với 10 bổ sung0 xóa
  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 }
    Sw_Integer = LongInt;                              { Long integer now }
 {$ENDIF}
 {$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                              }
 {                               GENERAL ARRAYS                              }
 {---------------------------------------------------------------------------}
 {---------------------------------------------------------------------------}