On 23/07/16 13:31, Petr Kohut wrote:
Hello,
here are results:

Thanks a lot. Could you test one more? I think I will have all information I need then.


Jonas

{$APPTYPE CONSOLE}

type
  tcp866 = type ansistring(866);
var
  s1, s2, s3: tcp866;
begin
  s1:='abc';
  setcodepage(rawbytestring(s1),65001,false);
  s2:='def';
  setcodepage(rawbytestring(s2),437,false);
  s3:=s1+s2;
  Writeln('DefaultSystemCodePage = ',DefaultSystemCodePage);
  Writeln('s3 = "', s3, '" cp = ', StringCodePage(s3));
  Readln;
end.


_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Reply via email to