mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-11 16:30:36 +01:00
8b0cb2c1d5
- don't parse '(' token after the type declaration inside the type block
- replace parse of "string<codepage>" to "type AnsiString(codepage)" for delphi compatibility
- fix tests to use "type AnsiString(codepage)"
git-svn-id: trunk@19148 -
29 lines
449 B
ObjectPascal
29 lines
449 B
ObjectPascal
program test;
|
|
{$CODEPAGE UTF8}
|
|
// file encoding is UTF8
|
|
type
|
|
CP866String = type AnsiString(866);
|
|
CP1251String = type AnsiString(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.
|
|
|
|
|