Lỗi trình biên dịch khi sử dụng generics và khai báo chuyển tiếp trong Delphi XE2

Question

Tôi bắt đầu dự án trên Delphi 2010, sau đó di chuyển sang XE và bây giờ tôi cố gắng di chuyển sang XE2. Sau khi biên dịch trong XE2 (Update 4 Hotfix 1), kiểm tra đơn vị đã bắt đầu thất bại với AV. Sau khi một số lỗi, nó trở nên rõ ràng rằng đoạn mã sau không được biên dịch một cách chính xác: kết quả đầu ra

program ForwardDeclaration; 

{$APPTYPE CONSOLE} 

uses 
    System.SysUtils; 

type 
    TEntityBase = class(TObject) 
    protected 
     FModel: Integer; 
    public 
     constructor Create(const AModel: Integer); 
    end; 

    TEntity<TKey> = class(TEntityBase) 
    end; 

    TMyEntity2 = class; 

    TMyEntity1 = class(TEntity<Integer>) 
     FData: Integer; 
    end; 

    TMyEntity2 = class(TMyEntity1) 
    end; 

constructor TEntityBase.Create(const AModel: Integer); 
begin 
    inherited Create; 
    FModel := AModel; 
end; 

var 
    MyEntity: TMyEntity1; 
begin 
    try 
     Writeln(TEntityBase.ClassName, ': ', TEntityBase.InstanceSize, ' bytes'); 
     Writeln(TMyEntity1.ClassName, ': ', TMyEntity1.InstanceSize, ' bytes'); 
     MyEntity := TMyEntity1.Create(100); 
     Assert(MyEntity.FData = 0); 
    except 
     on E: Exception do Writeln(E.ClassName, ': ', E.Message); 
    end; 
end. 

Chương trình:

TEntityBase: 12 bytes 
TMyEntity1: 12 bytes <-- Must be 16 bytes! 
EAssertionFailed: Assertion failure (ForwardDeclaration.dpr, line 41) 

Có thể giải quyết vấn đề bằng cách lựa chọn điều chỉnh biên dịch?

Sự cố này có lặp lại với người khác không?

P.S. QC107110

Answer 1

Có thể giải quyết vấn đề bằng cách lựa chọn điều chỉnh biên dịch?

Không, bạn không thể sửa chữa các lỗi bằng cách điều chỉnh, đó là một (rất cụ thể) lỗi trong trình biên dịch.

[Ai đó có thể cho tôi biết] Sự cố này có lặp lại với người khác không?

tôi có thể tái tạo các mã, nhưng chỉ trong XE2 cập nhật 4.

tôi đã không thể kiểm tra xem nó trong XE3 (không có phiên bản đó). Nó được cố định trong XE4 (theo nhận xét).

Vì vậy, cách duy nhất để mã hoạt động là:

a. xóa tờ khai chuyển tiếp không cần thiết.
b. sử dụng phiên bản Delphi khác.