fpcsrc/tests/test/packages/cocoaint/tw20876.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

{ %target=darwin }
{ %norun }

unit tw20876;

{$mode delphi}
{$modeswitch objectivec1}

interface

uses
  CocoaAll;

type
  arecord = record
    astr: NSString;
  end;

implementation

end.