blob: bda94505c13cf137c408c70d7f4ac4cb57aeed89 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
type
TType = packed record
a: byte;
b: byte;
c: longword;
end;
ttypecontainer = packed record
r: ttype;
b1,b2: byte;
end;
function make: TType;
begin
make.a:=1;
make.b:=2;
make.c:=$12345678;
end;
var
id: ttypecontainer;
begin
id.b1:=123;
id.b2:=234;
id.r := make();
if id.r.a<>1 then
halt(1);
if id.r.b<>2 then
halt(2);
if id.r.c<>$12345678 then
halt(3);
if id.b1<>123 then
halt(4);
if id.b2<>234 then
halt(5);
end.
|
