blob: b5492510997f66187c8a82c41f67b40dbf746c4c (
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
|
{ %FAIL }
{ overriding methods is forbidden in mode objfpc }
program thlp6;
{$ifdef fpc}
{$mode objfpc}
{$endif}
uses
uhlp3;
type
TObjectHelperSub = class helper(TObjectHelper) for TObject
procedure TestFinal; override; final;
end;
procedure TObjectHelperSub.TestFinal;
begin
end;
begin
end.
|
