mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-18 00:22:35 +02: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 -
30 lines
532 B
ObjectPascal
30 lines
532 B
ObjectPascal
{$CODEPAGE cp850}
|
|
program tcptypedconst;
|
|
|
|
type
|
|
Str_cp = type AnsiString(1251);
|
|
Str_cp850 = type AnsiString(850);
|
|
|
|
procedure printcontent(p : Pointer; l: integer);
|
|
var
|
|
i : Integer;
|
|
pb : PByte;
|
|
begin
|
|
writeln;
|
|
pb := p;
|
|
for i := 1 to l do begin
|
|
writeln('s[',i,']= ',pb^);
|
|
inc(pb);
|
|
end;
|
|
end;
|
|
|
|
const
|
|
c : Str_cp = #163#165#167#174#181#224;
|
|
c850 : Str_cp850 = #163#165#167#174#181#224;
|
|
begin
|
|
printcontent(@(c[1]),Length(c));
|
|
printcontent(@(c850[1]),Length(c850));
|
|
WriteLn(c);
|
|
WriteLn(c850);
|
|
end.
|