blob: cc92909d5acffd94e7aee1e100a4289916e84721 (
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
program tmoperator4;
{$MODE DELPHI}
type
TR1 = record
private
class operator Initialize(var aR1: TR1);
class operator Finalize(var aR1: TR1);
public
I: Integer;
end;
TR2 = record
private
class operator Initialize(var aR2: TR2);
class operator Finalize(var aR2: TR2);
public
S: string;
end;
{ TR1 }
class operator TR1.Initialize(var aR1: TR1);
begin
WriteLn('TR1.Initialize');
aR1.I := 1;
end;
class operator TR1.Finalize(var aR1: TR1);
begin
if aR1.I <> 2 then
Halt(1);
WriteLn('TR1.Finalize');
end;
{ TR2 }
class operator TR2.Initialize(var aR2: TR2);
begin
WriteLn('TR2.Initialize');
aR2.S := 'A';
end;
class operator TR2.Finalize(var aR2: TR2);
begin
if aR2.S <> 'B' then
Halt(2);
WriteLn('TR2.Finalize');
end;
{ TA }
type
TA = class
public
F1: TR1;
end;
TB = class(TA)
public
F2: TR2;
end;
var
O: TB;
begin
O := TB.Create;
if O.F1.I <> 1 then
Halt(3);
if O.F2.S <> 'A' then
Halt(4);
O.F1.I := 2;
O.F2.S := 'B';
O.Free;
WriteLn('end');
end.
|
