如何解决声明类型别名时,委托会导致访问冲突?
我使用的是 Delphi 10.3 Community Edition,面向 Windows 32 位。
我正在编写一个接口类型。它的类在内部使用 TList<T>
(和一些其他对象)。为了避免编写多个传递单行方法,我使用 implements
关键字进行委托,如下所示:
program MRE;
{$APPTYPE CONSOLE}
uses
System.Generics.Collections;
type
IMyList = interface
['{8483DB08-57EA-40D0-BFCE-5E39804CA15B}']
function Add (const ACard: Cardinal): Integer;
function GetEnumerator: TList<Cardinal>.TEnumerator;
end;
TMyList = class (TInterfacedObject,IMyList)
constructor Create;
destructor Destroy; override;
private
FCards: TList<Cardinal>;
public
property Cards: TList<Cardinal>
read FCards
implements IMyList;
end;
constructor TMyList.Create;
begin
FCards := TList<Cardinal>.Create;
end;
destructor TMyList.Destroy;
begin
FCards.Free
end;
begin
var Test: IMyList := TMyList.Create;
Test.Add (3);
for var c in Test do
WriteLn (c);
ReadLn
end.
这工作正常并按预期打印 3。
然而,当我在更复杂的程序版本中遇到奇怪的崩溃时,我能够将错误提炼到类型的声明。只需添加一行(类型声明之间的任何位置):
type
TCardList = TList<Cardinal>; { **** this isn't even used anywhere! }
代码仍然可以编译,但应用程序现在因访问冲突('写入地址 0x004ee838')而崩溃。这不仅仅是对 Add()
的调用。当您删除它时,它仍然会在 for
循环尝试获取枚举器时崩溃。
是否有一些我在这里遗漏的对委托的奇怪限制,或者这可能是编译器缺陷?
编辑:根据评论中的要求,这里再次添加了相同的代码,其中已添加触发崩溃的单行:
program MRE;
{$APPTYPE CONSOLE}
uses
System.Generics.Collections;
type
TCardList = TList<Cardinal>; { **** this isn't even used anywhere! }
IMyList = interface
['{8483DB08-57EA-40D0-BFCE-5E39804CA15B}']
function Add (const ACard: Cardinal): Integer;
function GetEnumerator: TList<Cardinal>.TEnumerator;
end;
TMyList = class (TInterfacedObject,IMyList)
constructor Create;
destructor Destroy; override;
private
FCards: TList<Cardinal>;
public
property Cards: TList<Cardinal>
read FCards
implements IMyList;
end;
constructor TMyList.Create;
begin
FCards := TList<Cardinal>.Create;
end;
destructor TMyList.Destroy;
begin
FCards.Free
end;
begin
var Test: IMyList := TMyList.Create;
Test.Add (3);
for var c in Test do
WriteLn (c);
ReadLn
end.
这会产生上面提到的崩溃。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。