* fixed r22247 so it does in fact set the destination code page properly

    (and use the generic helper so no pointer errors can happen)

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

rtl/inc/ustrings.inc

@@ -70,7 +70,7 @@ begin
   setlength(dest,len);
   if not assigned(pointer(dest)) then
     exit;
-  PAnsiRec(dest)^.CodePage:=cp;
+  SetCodePage(dest,cp,false);
   p:=pointer(dest);         {SetLength guarantees that dest is unique}
   for i:=1 to len do
     begin