123456789101112131415161718192021222324 |
- {$mode objfpc}
- {$modeswitch objectivec1}
- { Written by Jonas Maebe in 2009, released into the public domain }
- unit uobjc30c;
- interface
- type
- ta = objcclass(NSObject)
- field: longint;
- function mytest(c: char): longint; message 'mystest:';
- end;
- implementation
- function ta.mytest(c: char): longint;
- begin
- writeln(c);
- result:=field;
- end;
- end.
|