Why Gemfury?
Push, build, and install
RubyGems
npm packages
Python packages
Maven artifacts
PHP packages
Go Modules
Debian packages
RPM packages
NuGet packages
Repository URL to install this package:
|
Version:
3.0.0 ▾
|
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.