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

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;