“初始化”部分中匿名方法的奇怪错误

Question

此单元无法在XE2 Update 3中编译，错误为“内部错误：SY6315”。在XE中没有这样的问题。

unit Test;

interface

uses
  SysUtils;

var
  Proc: TProc;

implementation

initialization
   Proc := procedure
    var ByteArr: array of Byte;
    begin
      SetLength(ByteArr, 10);
    end;

end.

有没有人有这个问题的经验？

更新：我已提交质量控制报告：QC#102888。

Answer 1

看起来像编译器错误，这是使用TBytes

的解决方法

   Proc := procedure
    var
     ByteArr: TBytes;
    begin
      SetLength(ByteArr, 10);
    end;