blob: b80299adaaf4de3ed8d297f40e80717a50ea5266 (
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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
{ %norun }
unit terecs_u1;
{$mode delphi}
interface
type
HWND = integer;
TFoo = record
hWnd : HWND;
private
F1: Integer;
F2: Byte;
public
type
TBar = Integer;
const
C: TBar = 1;
var
F3: TBar;
F4: Byte;
class var
F5: TBar;
function Test(n: TBar): TBar;
class function Test1(n: TBar): TBar; static;
procedure Set3(const Value: TBar);
class procedure Set5(const Value: TBar); static;
property P3: TBar read F3 write Set3;
class property P5: TBar read F5 write Set5;
class constructor Create;
class destructor Destroy;
procedure Test2;
procedure Test3;
end;
procedure Test4(AFoo: TFoo);
implementation
function TFoo.Test(n: TBar): TBar;
begin
Result := F3 + F4 + n;
end;
class function TFoo.Test1(n: TBar): TBar;
begin
Result := C + n;
end;
class constructor TFoo.Create;
begin
F5 := 6;
end;
class destructor TFoo.Destroy;
begin
WriteLn('TFoo.Destroy');
end;
procedure TFoo.Set3(const Value: TBar);
begin
F3 := Value;
end;
class procedure TFoo.Set5(const Value: TBar); static;
begin
F5 := Value;
end;
procedure TFoo.Test2;
begin
if Self.C <> 1 then
halt(50);
if Self.F3 <> 7 then
halt(51);
end;
procedure TFoo.Test3;
begin
Test4(Self);
end;
procedure Test4(AFoo: TFoo);
begin
if AFoo.C <> 1 then
halt(100);
if AFoo.P3 <> 7 then
halt(101);
end;
end.
|
