使用数组重载运算符

Question

我有这个单位:

unit Main.TIns;

interface

type
  TIns = record
  private type
    TInsArray = array [0..90] of Integer;
  var
    FInsArray: TInsArray;
  public
    class operator Implicit(const Value: Integer): TIns;
    class operator Add(const Elem1: TIns; const Elem2: Integer): TIns;
  end;

implementation

class operator TIns.Implicit(const Value: Integer): TIns;
var
  iIndex: Integer;
begin
  if Value = 0 then
    for iIndex := 0 to 90 do Result.FInsArray[iIndex] := 0;
end;

class operator TIns.Add(const Elem1: TIns; const Elem2: Integer): TIns;
begin
  Inc(Result.FInsArray[0]);
  Result.FInsArray[Result.FInsArray[0]] := Elem2;
end;

end.

主要程序是:

program InsMain;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Main.TIns in 'Main.TIns.pas';

var
 s: TIns;
begin
    s := 0;      // Initialize ins; similar t := [] //
    s := s + 5;  // Add a element, in this case 5 //
    writeln(s[0]); // Read number of element in s, should to be 1 //
end.

问题是我收到此错误:[DCC错误] InsMain.dpr(20):E2149类没有默认属性.为什么我无法读取数组元素？我想过要解决添加变量MyVal的问题,这样做:

 type
      TIns = record
      private type
        TInsArray = array [0..90] of Integer;
      var
        FInsArray: TInsArray;
      public
        MyVal: TInsArray;
        class operator Implicit(const Value: Integer): TIns;
        class operator Add(const Elem1: TIns; const Elem2: Integer): TIns;
      end;

然后我修改添加所以:

class operator TIns.Add(const Elem1: TIns; const Elem2: Integer): TIns;
begin
  Inc(Result.FInsArray[0]);
  Result.FInsArray[Result.FInsArray[0]] := Elem2;
  MyVal := Result;   // <--- error E2124 here.
end;

和写作:

writeln(s.MyVal[0]); 

不返回错误,但在添加时给出错误,写入:[DCC错误] Main.TIns.pas(31):E2124实例成员'MyVal'在这里无法访问,所以不明白我错在哪里.

Answer 1

在TExtracts.Add中,您永远不会使用Elem1的内容初始化结果.这就是为什么你总是以空结果结束的原因.

更新:你的改变弊大于利!现在,您正在写入类方法中的记录字段.这是不可能的,因为错误消息试图说清楚.更不用说我不知道MyVal会有什么好处.