Explorar o código

tests: test tw7758 assumes that all conversions are made in UTF8 codepage. this change is needed to prevent conversion to system codepage (which also happens while testing with delphi).

git-svn-id: trunk@19476 -
paul %!s(int64=14) %!d(string=hai) anos
pai
achega
37432368e5
Modificáronse 1 ficheiros con 1 adicións e 0 borrados
  1. 1 0
      tests/webtbs/tw7758.pp

+ 1 - 0
tests/webtbs/tw7758.pp

@@ -17,6 +17,7 @@ var
   w: widestring;
   ss: shortstring;
 begin
+  SetMultiByteConversionCodePage(CP_UTF8);
   c:=#0;
   w:=c;
   if (length(w)<>1) or