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
|
{ %target=darwin }
{ %cpu=powerpc,powerpc64,i386,x86_64,arm,aarch64 }
{ Written by Jonas Maebe in 2009, released into the public domain }
program project1;
{$mode objfpc}{$H+}
{$modeswitch objectivec1}
type
MyObject = objcclass(NSObject)
private
data : Integer;
public
procedure setData_(aData: Integer); message 'setData:';
end;
procedure MyObject.setData_(aData: Integer);
begin
data := aData;
end;
var
m : MyObject;
begin
m := MyObject.alloc;
m.setData_(5);
if (m.data<>5) then
halt(1);
m.release;
end.
|
