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
33
34
35
36
37
|
{$mode objfpc}
{$modeswitch objectivec1}
{ Written by Jonas Maebe in 2009, released into the public domain }
unit uobjc27b;
interface
uses uobjc27a;
type
tachild = objcclass(ta)
end;
type
eachild = objccategory(tachild)
function eachild_categorymethod: longint; message 'eachild_categorymethod';
end;
da = objccategory(ta)
function da_categorymethod: longint; message 'da_categorymethod';
end;
implementation
function eachild.eachild_categorymethod: longint;
begin
result:=ca_categorymethod+2;
end;
function da.da_categorymethod: longint;
begin
result:=2;
end;
end.
|
