pastojs: typeinfo unicodestring andf widechar

git-svn-id: trunk@47404 -

packages/pastojs/src/fppas2js.pp

@@ -26516,6 +26516,12 @@ begin
     if El.CustomData is TResElDataBaseType then
       begin
       bt:=TResElDataBaseType(El.CustomData).BaseType;
+      case bt of
+      btWideChar: bt:=btChar;
+      btUnicodeString: bt:=btString;
+      btCurrency: bt:=btIntDouble;
+      end;
+
       case bt of
       btShortInt,btByte,
       btSmallInt,btWord,
@@ -26530,11 +26536,6 @@ begin
         Result:=GetBIName(pbivnRTL)+'.'+lowercase(AContext.Resolver.BaseTypeNames[bt]);
         exit;
         end;
-      btCurrency:
-        begin
-        Result:=GetBIName(pbivnRTL)+'.'+lowercase(AContext.Resolver.BaseTypeNames[btIntDouble]);
-        exit;
-        end;
       btCustom:
         if El.CustomData is TResElDataPas2JSBaseType then
           begin