blob: 5c9ab4ab7649081ef6f0b4c6e85bb37376a5081d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ %fail }
type
tc1 = class
procedure p;virtual;abstract;
end;
tc2 = class(tc1)
procedure p;override;
end;
procedure tc2.p;
begin
inherited;
end;
begin
end.
|