blob: 408193ae8d68a0d1d8ee19f2dcc40527f49c650f (
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
|
unit uhlp39;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
type
TObjectHelper1 = class helper for TObject
class procedure Test1;
end;
TObjectHelper2 = class helper for TObject
class procedure Test2;
end;
implementation
class procedure TObjectHelper1.Test1;
begin
end;
class procedure TObjectHelper2.Test2;
begin
end;
end.
|
