fpcsrc/tests/tbs/tb0338.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{$h+}

Type
  TMyRec = Record
    AString : AnsiString;
  end;
  PMyRec = ^TMyRec;

Var
  M : PMyRec;

begin
  M:=New(PmyRec);
end.