Lỗi lạ với các phương thức ẩn danh trong phần 'khởi tạo'

Question

Đơn vị này không thể biên dịch trong XE2 Update 3 với lỗi "Lỗi Nội bộ: SY6315". Trong XE không có vấn đề như vậy.

unit Test; 

interface 

uses 
    SysUtils; 

var 
    Proc: TProc; 

implementation 

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

end. 

Có ai có bất kỳ kinh nghiệm nào về vấn đề này không?

Cập nhật: Tôi đã gửi báo cáo QC: QC#102888.

Answer 1

Trông giống như một lỗi biên dịch, đây là một cách giải quyết bằng TBytes

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