mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-08 04:32:48 +02:00
34 lines
508 B
ObjectPascal
34 lines
508 B
ObjectPascal
{
|
|
Test with:
|
|
./finddeclarationtest --format=plain --suite=TestFindDeclaration_ObjCClass
|
|
}
|
|
unit fdt_objcclass;
|
|
|
|
{$mode objfpc}{$H+}
|
|
{$ModeSwitch objectivec1}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
type
|
|
TMyObjCClassA1 = objcclass(NSObject) // ObjCClass with implicit ancestor NSObject
|
|
|
|
end;
|
|
|
|
procedure DoIt;
|
|
|
|
implementation
|
|
|
|
procedure DoIt;
|
|
var
|
|
a: TMyObjCClassA1;
|
|
begin
|
|
a:=TMyObjCClassA1.alloc{declaration:objcbase.NSObject.alloc}.init{declaration:objcbase.NSObject.init};
|
|
a.dealloc;
|
|
end;
|
|
|
|
end.
|
|
|