mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 10:08:42 +02:00
15 lines
233 B
ObjectPascal
15 lines
233 B
ObjectPascal
var
|
|
r: rawbytestring;
|
|
begin
|
|
r:='abc';
|
|
setcodepage(r,850);
|
|
setlength(r,length(r)+1);
|
|
if stringcodepage(r)<>850 then
|
|
halt(1);
|
|
setcodepage(r,437);
|
|
setlength(r,length(r)+1000);
|
|
if stringcodepage(r)<>437 then
|
|
halt(2);
|
|
end.
|
|
|