for-in und Defaultwert bei TList-Nachfahre

[FAlter]

Hi,

danke... Dachte es hat was mit dem default zu tun, dabei wars ganz war anderes.

Einen eigenen brauch ich aber gar nicht schreiben (obwohl es sehr einfach aussieht, hab mit die verlinkte Seite mal angesehen) denn ich kann auch einfach den Enumerator für TList wrappen (schließlich hab ich auch die TList gewrappt und lediglich Typecasts hinzugefügt, sollte also nicht langsamer werden):

Delphi-Quellcode:

  TNeuronEnumerator = class(TListEnumerator)
public
  function GetCurrent: INeuron; inline;
  property Current: INeuron read GetCurrent;
end;

//in der Liste
function GetEnumerator: TNeuronEnumerator; inline;

Damit klappt jetzt auch die for-in-Schleife.

Mfg
FAlter