blob: 6d4805f7726778ffc6b3fa390ec4896c69c0cebb (
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
|
{ Old file: tbs0260.pp }
{ problem with VMT generation if non virtual method has a virtual overload OK 0.99.12 (PM) }
program test;
type
obj1 = object
st : string;
constructor init;
procedure writeit;
end;
obj2 = object(obj1)
procedure writeit;virtual;
end;
obj3 = object(obj2)
l : longint;
end;
constructor obj1.init;
begin
end;
procedure obj1.writeit;
begin
end;
procedure obj2.writeit;
begin
end;
begin
end.
|
