mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 01:08:07 +02:00
17 lines
269 B
ObjectPascal
17 lines
269 B
ObjectPascal
program tcpstr15;
|
|
{$apptype console}
|
|
{$codepage cp1251}
|
|
{$mode delphi}
|
|
type
|
|
t866 = type AnsiString(866);
|
|
var
|
|
s866: t866;
|
|
ss: ShortString;
|
|
begin
|
|
s866 := 'ïðèâåò ';
|
|
ss := 'çåìëÿíå';
|
|
Insert(ss, s866, 8);
|
|
if StringCodePage(s866) <> 866 then
|
|
halt(1);
|
|
end.
|