时间戳

首页 > 解决方案 > Delphi编译器错误？使用“对象”，但使用“记录”编译

object - Delphi编译器错误？使用“对象”，但使用“记录”编译

问题描述

此代码无法编译（在 Delphi 7 和 Delphi XE2 上），并给出错误消息“需要 E2036 变量”。但是，如果我将“对象”更改为“记录”，那么它在 Delphi XE2 上编译得很好，因为它有高级记录。我想在 Delphi 版本之间编写可移植代码，并在 D7 上使用“对象”，在带有 IFDEF 的 XE2 上使用“记录”，但在这种情况下看起来不可能。我错了，还是这是一个真正的编译器错误？

type

  TD = String;

  TC = object
  public
    V: String;
    function D: TD;
  end;

  TB = object
  public
    V: String;
    function C: TC;
  end;

  TA = object
  public
    V: String;
    function B: TB;
  end;

function TC.D: TD; begin end;
function TB.C: TC; begin end;
function TA.B: TB; begin end;

procedure Test;
var
  A: TA;
  s: string;
begin
  s := A.V; // Ok
  s := A.B.V; // Ok
  s := A.B.C.V; // "E2036 Variable required", the cursor is between "C" and "."
end;

感谢大家的快速响应。令人惊讶的是，几分钟后我找到了解决方法。“对象”必须至少有一个虚拟方法（并且它的大小不能为零，所以它必须有一个数据字段，但它不必像“V：字符串”那样是托管类型）。如果定义了 HAS_ADVANCEDRECORD，这个丑陋的代码可以在 Delphi 7 和 Delphi XE2 上编译。

{.$define HAS_ADVANCEDRECORD}

type

  TE = String;

  TD = {$ifdef HAS_ADVANCEDRECORD}record{$else}object{$endif}
  public
    V: String;
    function E: TE; {$ifndef HAS_ADVANCEDRECORD}virtual;{$endif}
  end;

  TC = {$ifdef HAS_ADVANCEDRECORD}record{$else}object{$endif}
  public
    V: String;
    function D: TD; {$ifndef HAS_ADVANCEDRECORD}virtual;{$endif}
  end;

  TB = {$ifdef HAS_ADVANCEDRECORD}record{$else}object{$endif}
  public
    V: String;
    function C: TC; {$ifndef HAS_ADVANCEDRECORD}virtual;{$endif}
  end;

  TA = {$ifdef HAS_ADVANCEDRECORD}record{$else}object{$endif}
  public
    V: String;
    function B: TB; {$ifndef HAS_ADVANCEDRECORD}virtual;{$endif}
  end;

function TD.E: TE; begin end;
function TC.D: TD; begin end;
function TB.C: TC; begin end;
function TA.B: TB; begin end;

procedure Test;
var
  A: TA;
  s: string;
begin
  s := A.V; //* Ok
  s := A.B.V; //* Ok
  s := A.B.C.D.E; //* Solved: "E2036 Variable required"
end;

其实我想玩一个流畅的语法 sql 查询生成器，高级记录比 TObject 有优势。也就是说，它们不需要生命周期管理。一个自然的解决方案是在这里使用接口，但我总是遇到麻烦。

我想，更值得提高我对接口的了解...

标签： objectdelphirecord

解决方案

这是一个错误。你可以提交一个错误报告，它至少会记录它。但是，我严重怀疑 Embarcadero 是否会投入更多资源来修复它，并且无论如何这不会帮助您使用旧版本的 Delphi。

推荐阅读