Delphi 2010 和泛型

Question

我正在尝试执行以下操作:

type
  IExemplo<Generic> = interface
    function GetGenerico: Generic;    
  end;

  TClassA<Generic> = class(TComponent, IExemplo<Generic>)
    function GetGenerico: Generic; virtual;
    function GetInterface: IExemplo<Generic>; virtual;
  end;

  TClassB = class(TClassA<string>)
    function GetGenerico: string; override;
    function GetInterface: IExemplo<string>; override;
  end;

换句话说，我创建了一个包含一些泛型的接口(interface)，一个实现接口(interface)的基类，最后是一个实现基类的派生类。

但是，在行

function GetInterface: IExemplo<string>; override;

我收到语法错误。

我的目标是 TClassB不再具有 Generic 属性，此时其类型已正确设置。

Answer 1

这段代码是有效的并且可以在更高版本的 Delphi 中编译。确实，它用 Delphi 2010 为我编译，所以我想知道你是否可能没有安装 all the updates that are available for Delphi 2010 .

Delphi 泛型在早期版本中充满了缺陷。在一定程度上，最务实的做法是让您升级到现代版本的 Delphi，以逃避这些缺陷的暴政。是的，你可以通过安装 Delphi 2010 的更新来解决这个问题，但我相信你很快就会遇到泛型的其他问题。