+ support for vaString when reading variant properties

  * fixed support for vaUString when reading variant properties (call
    ReadUnicodeString instead of ReadWideString)

git-svn-id: trunk@12853 -

rtl/objpas/classes/reader.inc

@@ -1130,10 +1130,18 @@ begin
         Result:=ReadDate;
       end;
 {$endif fpunone}
-    vaWString,vaUString,vaUTF8String:
+    vaWString,vaUTF8String:
       begin
         Result:=ReadWideString;
       end;
+    vaString:
+      begin
+        Result:=ReadString;
+      end;
+    vaUString:
+      begin
+        Result:=ReadUnicodeString;
+      end;
     else
       raise EReadError.CreateFmt(SUnsupportedPropertyVariantType, [Ord(nv)]);
   end;