blob: 74e1a187d15534222bf89560a8789772cd40bc80 (
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
|
{ %NORUN }
{ message methods are allowed in mode Delphi }
program thlp13;
{$ifdef fpc}
{$mode delphi}
{$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.
|
