From 90b422b2d44eb1b54cd9c98d9bed8e6f97686296 Mon Sep 17 00:00:00 2001 From: nickysn Date: Wed, 10 Feb 2021 13:35:11 +0000 Subject: [PATCH] + introduced Sw_String git-svn-id: branches/unicodekvm@48593 - --- packages/fv/src/fvcommon.inc | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/packages/fv/src/fvcommon.inc b/packages/fv/src/fvcommon.inc index fe059f8018..c4e4da3e16 100644 --- a/packages/fv/src/fvcommon.inc +++ b/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 } {---------------------------------------------------------------------------}