blob: fda50add17a8a147750996dd00bc89228f855123 (
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
56
57
|
{ %version=1.1 }
{ Source provided for Free Pascal Bug Report 2696 }
{ Submitted by "Vincent Snijders" on 2003-09-28 }
{ e-mail: vslist@zonnet.nl }
{$ifdef fpc}
{$mode delphi}
{$endif}
uses
Classes;
type
IBase = interface
procedure a(i: integer); overload;
procedure a(s: string); overload;
end;
IBase2 = interface(IBase)
procedure c;
end;
TBase = class(TInterfacedObject, IBase)
public
procedure a(i: integer); overload;
procedure a(s: string); overload; virtual;
end;
TSubClass = class(TBase, IBase2)
procedure a(s: string); overload; override;
procedure c;
end;
{ TBase }
procedure TBase.a(i: integer);
begin
end;
procedure TBase.a(s: string);
begin
end;
{ TSubClass }
procedure TSubClass.a(s: string);
begin
end;
procedure TSubClass.c;
begin
end;
begin
end.
|
