On 29.12.2013 19:26, Hans-Peter Diettrich wrote:
Jonas Maebe schrieb:
The code page of ansistrings concatenations is the code page of the
result to which this concatenation is assigned/converted. For
rawbytestring, this code page is CP_ACP per Delphi compatibility.
This does not match my experience with Delphi XE :-(
Can you give an Delphi example, so that I can verify this behaviour?
=== code begin ===
program tstrtest;
{$apptype console}
procedure Test(aArg: RawByteString);
begin
Writeln(StringCodePage(aArg));
end;
type
CP1252String = type AnsiString(1252);
var
s1: UTF8String;
s2: CP1252String;
begin
s1 := 'Test';
s2 := 'Test';
DefaultSystemCodePage := 1251;
Test(s1);
Test(s2);
Test(s1 + s2);
end.
=== code end ===
This will print
=== output begin ===
65001
1252
1251
=== output end ===
This was tested using Delphi XE (it might not compile though as I've
just rewritten the code from memory as the original is on a different
computer)
Regards,
Sven
_______________________________________________
fpc-devel maillist - [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-devel
