for-in und Defaultwert bei TList-Nachfahre

[FAlter]

Hi,

da TurboDelphi noch keine Generics kennt, habe ich mir für TList eine Wrapper-Klasse geschrieben, in welcher folgende Zeile vorkommt:

property Items[Index: Integer]: INeuron read Get write Put; default; Nun klappt aber folgende Schleife nicht:

Delphi-Quellcode:

for Neuron in FOutput do
  Neuron...

Neuron ist als INeuron deklariert und FOutput vom Typ der Wrapper-Klasse.

Delphi-Compiler:

[Pascal Fehler] UNeuron.pas(62): E2010 Inkompatible Typen: 'INeuron' und 'Pointer'

So compiliert es fehlerfrei:

Delphi-Quellcode:

for I := 0 to FOutput.Count - 1 do
  FOutput[I]...

Warum klappt die for-in-Schleife nicht?

Mfg
FAlter

[Apollonius]

Lies mal die Hilfe zur for-in-Schleife. Die for-in-Schleife greift nicht auf Items zu, sondern beruht darauf, dass eine Methode GetEnumerator existiert, die ein Objekt oder einen Record mit bestimmten Methoden und Eigenschaften zurückgibt. Du musst einen eigenen Enumerator schreiben und eine Instanz davon in GetEnumerator zurückgeben.


[edit=Matze]Beitrag neu abgesendet, da er nicht dargestellt wurde. MfG, Matze[/edit]

[Hawkeye219]

Hallo Felix,

wenn du für eine eigene Klasse einen Enumerator schreiben möchtest, findest du vielleicht in dieser Artikelreihe einige Grundlagen.

Gruß Hawkeye

[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