For - In-Schleife und TInterfaceList

[Die Muhkuh]

Hi,

ich hab eine Klasse, die von TInterfaceList abgeleitet wird. Laut Delphi-Hilfe kann ich die For - In-Schleif mit der TInterfaceList nutzen. Nur wie?

Delphi-Quellcode:

  TMyClass = class(TInterfaceList)
  private
    function GetItem(Index: Integer): IMyInterface;
    function GetItemByName(Name: String): IMyInterface;
  public
    property Items[Index: Integer]: IMyInterface read GetItem; default;
    property ItemsByName[Name: String]: IMyInterface read GetItemByName;
  end;

function TMyClass.GetItemByName(Name: String): IMyInterface;
var
  MyI: IMyInterface;
begin
  for MyI in Items do  // [1]
  begin
    if MyI.GetName = Name then
    begin
      Result := MyI;
      Exit;
    end;
  end;
end;

Bei [1] spuckt mir der Compiler folgende Fehlermeldung aus:

Zitat:

[Pascal Fehler] unit1.pas(64): E2029 '[' erwartet, aber 'DO' gefunden

Nutze ich die for in falsch oder muss ich noch irgendwas tun?