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
|
{ %NORUN }
{ this tests that methods defined in the parent of a helper are available in the
child helper as well }
program thlp44;
{$ifdef fpc}
{$mode delphi}
{$endif}
type
TObjectHelper = class helper for TObject
class procedure Test;
end;
TObjectHelperSub = class helper(TObjectHelper) for TObject
class procedure DoTest;
end;
class procedure TObjectHelper.Test;
begin
end;
class procedure TObjectHelperSub.DoTest;
begin
Test;
end;
begin
TObject.DoTest;
end.
|
