mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-05 00:04:14 +02:00
42 lines
751 B
ObjectPascal
42 lines
751 B
ObjectPascal
unit objctest1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
{$modeswitch objectivec2}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
type
|
|
NSSomeObject = objcclass(NSObject)
|
|
procedure method_(params: Integer); message 'method:';
|
|
class procedure classmethod_(para: char); override; // "message 'classmethod:'" not required, compiler will get this from the parent class
|
|
end;
|
|
|
|
type
|
|
ObjCClassName1 = objcclass
|
|
private
|
|
end;
|
|
|
|
ObjCClassName2 = objcclass external name 'ExternalClassName' (ObjCSuperClassName, ProtocolName)
|
|
private
|
|
end;
|
|
|
|
ObjCClassName3 = objcclass external (ObjCSuperClassName)
|
|
private
|
|
end;
|
|
|
|
ObjCClassName4 = objcclass external
|
|
private
|
|
end;
|
|
|
|
ObjCClassName5 = objcclass (ObjCSuperClassName)
|
|
private
|
|
end;
|
|
|
|
implementation
|
|
|
|
end.
|
|
|