blob: 6aecf424ec8ee3e5f4cfdb965dc3639afda87d90 (
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
|
{ %FAIL }
{ message methods are forbidden in mode ObjFPC }
program thlp14;
{$ifdef fpc}
{$mode objfpc}
{$endif}
type
TMessage = record
ID: Word;
end;
TObjectHelper = class helper for TObject
procedure Message(var aMessage: TMessage); message 42;
end;
procedure TObjectHelper.Message(var aMessage: TMessage);
begin
end;
begin
end.
|
