Преглед на файлове

* call unicodestring version of ExpandUNCFileName from ansistring version
instead of infinitely recursing into the ansistring version

git-svn-id: branches/cpstrrtl@25044 -

Jonas Maebe преди 12 години
родител
ревизия
8368f7dba5
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      rtl/win/sysutils.pp

+ 1 - 1
rtl/win/sysutils.pp

@@ -184,7 +184,7 @@ var
   u: unicodestring;
 begin
   { prevent data loss due to unsupported characters in ansi code page }
-  u:=ExpandUNCFileName(filename);
+  u:=ExpandUNCFileName(unicodestring(filename));
   widestringmanager.Unicode2AnsiMoveProc(punicodechar(u),result,DefaultRTLFileSystemCodePage,length(u));
 end;