Einzelnen Beitrag anzeigen

Benutzerbild von FAlter
FAlter

Registriert seit: 21. Jul 2004
Ort: Ostfildern
1.096 Beiträge
 
FreePascal / Lazarus
 
#4

Re: for-in und Defaultwert bei TList-Nachfahre

  Alt 16. Jan 2009, 19:46
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
Felix Alter
  Mit Zitat antworten Zitat