blob: d70caf5cfd1acbeecd775a21c7a6bd80512a6f07 (
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
|
{$mode objfpc}
type
tclass1 = class
procedure a;virtual;
procedure b;virtual;
end;
tclass2 = class(tclass1)
procedure a;override;
procedure b;override;
procedure c;virtual;
end;
procedure tclass1.a;
begin
end;
procedure tclass1.b;
begin
end;
procedure tclass2.a;
begin
end;
procedure tclass2.b;
begin
end;
procedure tclass2.c;
begin
end;
begin
end.
|
