blob: 47d4fb5326ddb8f899d7576f53e7b460feb6f52a (
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
|
unit uw18087b;
interface
{$mode delphi}
uses
uw18087a;
type
TFoo2 = class
type
TFoo3 = class(TFoo1)
protected
procedure Proc1; override; // was error: There is no method in an ancestor class to be overridden: "TFoo2.TFoo3.Proc1;"
end;
end;
implementation
procedure TFoo2.TFoo3.Proc1;
begin
end;
end.
|
