blob: 8e5ea006581fa99b1cb84fbea1b5cbbfad478472 (
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
|
{ Old file: tbs0159.pp }
{ Invalid virtual functions - should compile OK 0.99.7 (FK) }
Type TParent = Object
Procedure SomeProc;
end;
TChild = Object(TParent)
Procedure SomeProc; virtual;
end;
Procedure TParent.someproc;
Begin
end;
procedure TChild.Someproc;
Begin
end;
Begin
end.
|
