blob: ae39ca6590809ce8527d231d3f49a4691f32fb29 (
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
|
{$mode macpas}
program test;
type
Rec1Ptr = ^Rec1;
Rec1 =
record
case boolean of
False : ( f1: Integer);
True : ( case boolean of
False: ( f2: Integer);
True : ( f3: Integer))
end;
Rec2 =
record
case boolean of
False : ( p1: Rec1Ptr);
True : ( p2: Pointer)
end;
procedure PP( theRec2: Rec2; var theRec1: Rec1);
begin
theRec1 := theRec2.p1^
end;
begin
end.
|
