blob: d8fdc88bf44b7ee4b1ba424adf3e0e8bb835575e (
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
|
unit uw3292a;
{$ifdef fpc}{$mode objfpc}{$H+}{$endif}
interface
type
TBase = class
protected
procedure a(var msg); message 1;
procedure b; virtual;
end;
TMiddle = class(TBase)
private
procedure a(var msg); message 1;
procedure b;override;
end;
var
acnt,bcnt : longint;
implementation
{ TBase }
procedure TBase.a(var msg);
begin
writeln('A: In TBase');
inc(acnt);
end;
procedure TBase.b;
begin
writeln('B: In TBase');
inc(bcnt);
end;
{ TMiddle }
procedure TMiddle.a(var msg);
begin
writeln('A: In TMiddle');
inc(acnt);
inherited a(msg);
end;
procedure TMiddle.b;
begin
writeln('B: In TMiddle');
inc(bcnt);
inherited b;
end;
end.
|
