On 27/12/2020 18:36, Benito van der Zander via fpc-pascal wrote:
> this code:
>
> program Project1;
> {$mode objfpc}{$H+}
> var a,b, c: string;
> begin
> a := 'x';
> b := 'y';
> SetCodePage(RawByteString(b), CP_NONE, false);
> c := a+b;
> writeln(c);
> end.
>
> prints x without y on
Hello,
this code:
program Project1;
{$mode objfpc}{$H+}
var a,b, c: string;
begin
a := 'x';
b := 'y';
SetCodePage(RawByteString(b), CP_NONE, false);
c := a+b;
writeln(c);
end.
prints x without y on win32/wine.
Is that supposed to happen?
Bye,
Benito
