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