我在Delphi 2006中使用操作符重载记录(请不要通过告诉我不要回答这个问题)
我有两个记录类型,隐式运算符重载.它们都只是在实现模块,而不是通过界面暴露出来.
我的问题是,现在他们是相互依赖的,我不知道如何将第二个类型声明为编译器.我知道如何使用函数,过程和类来实现,而不是记录.
以下是我正在尝试做的简化示例:
implementation type TMyRec1 = record Field1 : Integer; class operator Implicit(a: TMyRec2): TMyRec1; // <---- Undeclared Identifier here. end; TMyRec2 = record Field2: Integer; class operator Implicit(a: TMyRec1): TMyRec2; end; class operator TMyRec1.Implicit(a:TMyRec2): TMyRec1; begin Result.Field1 := a.Field2; end; class operator TMyRec2.Implicit(a:TMyRec2): TMyRec2; begin Result.Field2 := a.Field1; end;
解决方法
您不能有记录类型的转发声明.在第二个类型中定义两个隐式运算符:
type TMyRec1 = record Field1 : Integer; end; TMyRec2 = record Field2: Integer; class operator Implicit(a: TMyRec2): TMyRec1; class operator Implicit(a: TMyRec1): TMyRec2; end;
从the help起:
Implicit conversions should be provided only where absolutely necessary,and reflexivity should be avoided. It is best to let type B implicitly convert itself to type A,and let type A have no kNowledge of type B (or vice versa).
原文地址:https://www.jb51.cc/delphi/102777.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。