On Mon, 25 Jul 2016 22:25:59 +0200 Jonas Maebe <jonas.ma...@elis.ugent.be> wrote:
> 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. DefaultSystemCodePage = 1252 s3 = "abcdef" cp = 65001 Mattias _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal