Browse Source

- Changes from Strasbourg

daniel 23 years ago
parent
commit
f1eb7b8130
1 changed files with 13 additions and 1 deletions
  1. 13 1
      rtl/objpas/sysstr.inc

+ 13 - 1
rtl/objpas/sysstr.inc

@@ -883,6 +883,15 @@ begin
                 else
                 else
                   if CheckArg(vtPChar,false) then
                   if CheckArg(vtPChar,false) then
                     hs:=Args[doarg].VPChar
                     hs:=Args[doarg].VPChar
+                else
+                  if CheckArg(vtPWideChar,false) then
+                    hs:=char(Args[doarg].VPWideChar^)
+                else
+                  if CheckArg(vtWideChar,false) then
+                    hs:=char(Args[doarg].VWideChar)
+                else
+                  if CheckArg(vtWidestring,false) then
+                    hs:=ansistring(Args[doarg].VWideString)
                 else
                 else
                   if CheckArg(vtAnsiString,true) then
                   if CheckArg(vtAnsiString,true) then
                     hs:=ansistring(Args[doarg].VAnsiString);
                     hs:=ansistring(Args[doarg].VAnsiString);
@@ -1329,7 +1338,10 @@ const
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.14  2002-01-24 12:33:53  jonas
+  Revision 1.15  2002-07-06 12:14:03  daniel
+  - Changes from Strasbourg
+
+  Revision 1.14  2002/01/24 12:33:53  jonas
     * adapted ranges of native types to int64 (e.g. high cardinal is no
     * adapted ranges of native types to int64 (e.g. high cardinal is no
       longer longint($ffffffff), but just $fffffff in psystem)
       longer longint($ffffffff), but just $fffffff in psystem)
     * small additional fix in 64bit rangecheck code generation for 32 bit
     * small additional fix in 64bit rangecheck code generation for 32 bit