mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 22:29:57 +02:00
12 lines
181 B
ObjectPascal
12 lines
181 B
ObjectPascal
program tcpstr11;
|
|
type
|
|
cp866 = type AnsiString(866);
|
|
var
|
|
A: cp866;
|
|
c: array[0..5] of ansichar = '能芍乒';
|
|
begin
|
|
A := c;
|
|
if StringCodePage(A) <> 866 then
|
|
halt(1);
|
|
end.
|