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 -

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