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?