mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 02:39:27 +02:00
29 lines
431 B
ObjectPascal
29 lines
431 B
ObjectPascal
program test;
|
|
{$CODEPAGE UTF8}
|
|
// file encoding is UTF8
|
|
type
|
|
CP866String = string<866>;
|
|
CP1251String = string<1251>;
|
|
|
|
procedure WriteString(const s: RawByteString);
|
|
begin
|
|
Write(StringCodePage(s), ' : ');
|
|
WriteLn(s);
|
|
end;
|
|
|
|
var
|
|
u1: UTF8String;
|
|
s1: CP1251String;
|
|
s2: CP866String;
|
|
begin
|
|
u1 := 'мама';
|
|
s1 := u1;
|
|
u1 := ' мыла';
|
|
s2 := u1;
|
|
u1 := ' раму';
|
|
s2 := s1 + u1 + s2;
|
|
WriteString(s2);
|
|
end.
|
|
|
|
|