delphi - 'initialization' 部分中匿名方法的奇怪错误

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;