blob: 6c0e282ead3328079e90c6ef59f1c26e147464cf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ Old file: tbs0355.pp }
{ }
{MvdV; published in core.
Element that is in the type zz too is not recognised as such.
}
type xx=(notinsubset1,insubset1,insubset2,notinsubset2);
zz=insubset1..insubset2;
ll=record
yy:zz;
end;
const oo : array[0..1] of ll = (
(yy:insubset1),
(yy:insubset2));
begin
end.
|
