Kaynağa Gözat

+ introduced type Sw_PString

git-svn-id: branches/unicodekvm@48605 -
nickysn 4 yıl önce
ebeveyn
işleme
5e9ba29d89
1 değiştirilmiş dosya ile 2 ekleme ve 0 silme
  1. 2 0
      packages/fv/src/fvcommon.inc

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

@@ -148,8 +148,10 @@ TYPE
 TYPE
 TYPE
 {$IFDEF FV_UNICODE}
 {$IFDEF FV_UNICODE}
    Sw_String = UnicodeString;
    Sw_String = UnicodeString;
+   Sw_PString = UnicodeString;
 {$ELSE FV_UNICODE}
 {$ELSE FV_UNICODE}
    Sw_String = ShortString;
    Sw_String = ShortString;
+   Sw_PString = PShortString;
 {$ENDIF FV_UNICODE}
 {$ENDIF FV_UNICODE}
 
 
 {---------------------------------------------------------------------------}
 {---------------------------------------------------------------------------}