背景

假设我有一个类,我想实现IEnumerable< T>：

TStackoverflow<T> = class(TInterfacedObject,IEnumerable<T>)
public
   { IEnumerable<T> }
   function GetEnumerator: IEnumerator<T>;
end;
 
var
    IEnumerable<TMouse> mices = TStackoverflow<TMouse>.Create;

我会有一个实现：

TStackoverflow<T> = class(TInterfacedObject,IEnumerable<T>)
public
   { IEnumerable<T> }
   function GetEnumerator: IEnumerator<T>;
end;
 
function TStackoverflow<T>.GetEnumerator: IEnumerator<T>;
begin
    Result := {snip,not important here};
end;

现在,为了成为一名好的程序员,我会选择我的类也将支持IEnumerable接口：

TStackoverflow<T> = class(TInterfacedObject,IEnumerable<T>,IEnumerable)
public
   { IEnumerable<T> }
   function GetEnumerator: IEnumerator<T>;
 
   { IEnumerable }
   function GetEnumerator: IEnumerator;
end;
 
function TStackoverflow<T>.GetEnumerator: IEnumerator<T>;
begin
    Result := {snip,not important here};
end;
 
function TStackoverflow.GetEnumerator: IEnumerator;
begin
    Result := {snip,not important here};
end;

那些知道这个事情的人会知道实现IEnumerable是一个红鲱鱼;不得不做任何一种方式.

现在问题了

该代码不编译,因为：

function GetEnumerator: IEnumerator<T>;
function GetEnumerator: IEnumerator;

我有两个具有相同签名的方法(不是真正相同的签名,但足够相同,Delphi无法区分它们)：

E2254 Overloaded procedure ‘GetEnumerator’ must be marked with the ‘overload’ directive

好的,我会把它们标记为超载：

function GetEnumerator: IEnumerator<T>; overload;
function GetEnumerator: IEnumerator; overload;

但这不行：

E2252 Method ‘GetEnumerator’ with identical parameters already exists

界面方法分辨率

超载是错误的做法,我们应该期待method resolution clauses：

type
    TStackoverflow<T> = class(TInterfacedObject,IEnumerable)
    protected
        function GetEnumeratorTyped: IEnumerator<T>;
        function GetEnumeratorGeneric: IEnumerator;
    public
        function IEnumerable<T>.GetEnumerator = GetEnumeratorTyped;
        function IEnumerable.GetEnumerator = GetEnumeratorGeneric;
    end;
 
{ TStackoverflow }
 
function TStackoverflow<T>.GetEnumeratorGeneric: IEnumerator;
begin
 
end;
 
function TStackoverflow<T>.GetEnumeratorTyped: IEnumerator<T>;
begin
 
end;

除此之外,还没有编译,因为逃避我的原因：

E2291 Missing implementation of interface method IEnumerable.GetEnumerator

所以让我们忘记IEnumerable

假装我不在乎我的课堂是否不支持IEnumerable,可以将其删除为支持的界面.它实际上并不改变任何东西,因为IEnumerable< T>从IEnumerble下降：

IEnumerable<T> = interface(IEnumerable)
  function GetEnumerator: IEnumerator<T>;
end;

所以方法必须存在,而删除IEnumerable的代码：

type
    TStackoverflow<T> = class(TInterfacedObject,IEnumerable<T>)
    protected
        function GetEnumeratorTyped: IEnumerator<T>;
    public
        function IEnumerable<T>.GetEnumerator = GetEnumeratorTyped;
    end;
 
{ TStackoverflow }
 
function TStackoverflow<T>.GetEnumeratorTyped: IEnumerator<T>;
begin
 
end;

不会因为同样的原因编译：

E2291 Missing implementation of interface method IEnumerable.GetEnumerator

那好吧,忘了仿制药

所以让我们停止,协作和听. IEnumerable是一个旧的新发明：

type
    TStackoverflow = class(TInterfacedObject,IEnumerable)
    public
        function GetEnumerator: IEnumerator;
    end;
 
{ TStackoverflow }
 
function TStackoverflow.GetEnumerator: IEnumerator;
begin
 
end;

优秀的,有效的我可以让我的班级支持IEnumerable.现在我想支持IEnumerable< T>.

这导致我的问题：

07001

更新：忘记附加完整的非功能代码：

program Project1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
 
type
    TStackoverflow<T> = class(TInterfacedObject,IEnumerable)
    protected
        function GetEnumeratorTyped: IEnumerator<T>;
        function GetEnumeratorGeneric: IEnumerator;
    public
        function IEnumerable<T>.GetEnumerator = GetEnumeratorTyped;
        function IEnumerable.GetEnumerator = GetEnumeratorGeneric;
    end;
 
{ TStackoverflow<T> }
 
function TStackoverflow<T>.GetEnumeratorGeneric: IEnumerator;
begin
 
end;
 
function TStackoverflow<T>.GetEnumeratorTyped: IEnumerator<T>;
begin
 
end;
 
begin
  try
     { TODO -oUser -cConsole Main : Insert code here }
  except
    on E: Exception do
      Writeln(E.ClassName,': ',E.Message);
  end;
end.