On Mon, 25 Jul 2016 22:25:59 +0200
Jonas Maebe <[email protected]> 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 - [email protected]
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
