uobjc30c.pp 359 B

123456789101112131415161718192021222324
  1. {$mode objfpc}
  2. {$modeswitch objectivec1}
  3. { Written by Jonas Maebe in 2009, released into the public domain }
  4. unit uobjc30c;
  5. interface
  6. type
  7. ta = objcclass(NSObject)
  8. field: longint;
  9. function mytest(c: char): longint; message 'mystest:';
  10. end;
  11. implementation
  12. function ta.mytest(c: char): longint;
  13. begin
  14. writeln(c);
  15. result:=field;
  16. end;
  17. end.