Delphi-继承/重写常量数组?

首先,为这篇文章的长度道歉。如果简洁是智慧的灵魂,那么这是一个无智的问题。

我想我的问题可以归结为:

在Delphi子类中覆盖常量数组的最佳方法是什么?

背景:

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

我有一个常量数组,它在父类和许多子类中定义。 数组元素的类型总是相同的,但是元素的数量和确切的数据在不同的子元素之间是不同的(我描述的是数据库表,因为一个特定的网格控件在编译时需要元数据,但这并不重要)。

我有几个函数作用于这些数组。作为一个简单的例子,我可能有一个函数来返回数组的最后一个元素。

如果在父级中定义了“getlastelement”,然后从子级调用继承的函数,它仍将作用于 父母 数组的版本。这不是我所期望的。孩子们似乎应该在自己的数组本地版本上调用继承的函数。

目前,我必须在每个子类中复制这些函数,这很令人恼火。

我想有一个 继承 函数作用于 地方的 常量数组的版本。最好的方法是什么?我考虑过在基类中定义一个返回静态数组的函数,然后为每个子级重写该函数。如果我这样做,那么我就不会在数组上执行操作,而是在函数结果上执行操作。

这将解决继承问题,但它引入了一个新的问题 I'd have to define a new type to encapsulate the array ,并修改我的(已经复杂化的)网格控件以使用该类型。

欢迎提出任何建议。

下面是一个简单的应用程序,演示了我所说的内容:

主要形式:

implementation

{$R *.dfm}

uses
  ParentClass, Descendant1, Descendant2;

procedure TfrmMain.btnTestClick(Sender: TObject);
var
  d1, d2: TParentClass;
begin
  d1 := TDescendant1.Create;
  d2 := TDescendant2.Create;

  //as it stands, this will return "E", then "A", which is good.
  //but if you move the LastElementOfArray function to the ParentClass,
  //then it will return "E", "E", ignoring the version of the array
  //defined inside TDescendant2.
  ShowMessage('d1=' + d1.LastElementOfArray);
  ShowMessage('d2=' + d2.LastElementOfArray);
end;


end.

在名为parentclass.pas的文件中:

unit ParentClass;

interface

type
  TParentClass = class
  public
    function LastElementOfArray: string; virtual; abstract;
  end;

const
  c_MyConstantArray: array[1..5] of string = ('A','B','C','D','E');

implementation

end.

在一个名为Descendant1.pas的单元中

//here, we will just take whatever array we got from the parent
unit Descendant1;

interface

uses
  ParentClass;

type
  TDescendant1 = class(TParentClass)
  public
    function LastElementOfArray: string; override;
  end;

implementation

{ TDescendant1 }

function TDescendant1.LastElementOfArray: string;
begin
  Result := c_MyConstantArray[High(c_MyConstantArray)];
end;

end.

在名为Descendant2.pas的文件中

//override with a new version of the constant array (same length)
unit Descendant2;

interface

uses
  ParentClass;

type
  TDescendant2 = class(TParentClass)
  public
    function LastElementOfArray: string; override;
  end;

const
  c_MyConstantArray: array[1..5] of string = ('E','D','C','B','A');

implementation

{ TDescendant2 }

function TDescendant2.LastElementOfArray: string;
begin
  //I hate defining this locally, but if I move it to ParentClass,
  //then it will act on the ParentClass version of the array, which
  //is **NOT** what I want
  Result := c_MyConstantArray[High(c_MyConstantArray)];
end;

end.