mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 13:08:13 +02:00
14 lines
192 B
ObjectPascal
14 lines
192 B
ObjectPascal
program tcpstr14;
|
|
{$apptype console}
|
|
{$mode delphi}{$H+}
|
|
|
|
type
|
|
t866 = type AnsiString(866);
|
|
var
|
|
s866: t866;
|
|
begin
|
|
Str(123, s866);
|
|
if StringCodePage(s866) <> 866 then
|
|
halt(1);
|
|
end.
|