blob: c7e859e93756f33922220bf17980c1d9546b9473 (
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
|
{$ifdef fpc}{$Mode delphi}{$endif}
uses
uw4056;
type
TestC = class(TestB)
public
procedure TestProc; override;
procedure TestProc(const C: Integer); override;
end;
var
X : TestC;
procedure TestC.TestProc;
begin
inherited TestProc;
end;
procedure TestC.TestProc(const C: Integer);
begin
inherited TestProc(C);
end;
begin
X := TestC.Create;
X.TestProc(10);
X.Free;
end.
|
