for ... in

[jfheins]

Einfache Frage (wahrscheinlich) einfache Antwort, aber ich komm nicht drauf:

Warum geht diese for .. in konstrukt nicht ?
(ich wollte es zum ersten mal benutzen, also nicht hauen ^^)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  Comp: TComponent;
begin
  for Comp in Components do
    (Comp as TWinControl).DoubleBuffered := True;
end;

Fehler: do gefunden aber [ erwartet ...

[faux]

Hallo!

Ich kenne diese Form von for-Schleifen zwar nicht, aber sollte das eine Art "foreach"-Schleife sein?
Das Schlüsselwort is überprüft normalerweise, ob eine Instanz von einer Bestimmten Klasse abstammt, und liefert also einen boolean zurück.

Grüße
Faux

[Matze]

Ich habe keine Ahnung, um ehrlich zu sein, aber müsste es nicht so in der Art gehen?

Delphi-Quellcode:

var i: integer;
  Comp: TComponent;
begin
  for i := 0 to Application.ComponentCount - 1 do
  begin
    Comp := Application.Components[i];
    if Comp is TWinControl then
      (Comp as TWinControl).DoubleBuffered := true;
  end;
end;

Aber wie gesagt, ich kenne for..in auch nicht.

[Luckie]

Seit Delphi 2005 kennt Delphi auch das foreach Konstrukt, wie es aus PHP bekannt ist. Allerdings kenne ich davon nicht die genaue Syntax bzw. bin mir nicht sicher, ob dies nicht nur in .NET Anwendungen verfügbar ist. Mit der Suche findet man dann diesen Thread: http://www.delphipraxis.net/internal...=390667#390667 etwas weiter unten ist dann auch von foreach die Rede.

[alcaeus]

Moin,

die Syntax ist an sich korrekt. So wie ich das sehe liegt das Problem darin, dass TForm.Components eine Array-Property ist, und somit keinen Enumerator hat, der fuer for..in aber notwaendig ist. Darin wirds wohl scheitern

Greetz
alcaeus

[faux]

In dem von Lukie verlinken Thema gehts um .NET. Also nehme ich mal an, dass foreach nur in Delphi.NET hinzugefügt wurde, da es in der CLS vorausgesetzt wird.

Grüße
Faux

[alcaeus]

Zitat von faux:

In dem von Lukie verlinken Thema gehts um .NET. Also nehme ich mal an, dass foreach nur in Delphi.NET hinzugefügt wurde, da es im CLS vorausgesetzt wird.

Nein, es funktioniert auch in Delphi fuer Win32, allerdings nicht in diesem einen Fall. Die erweiterten Templates fuer die DPCollection (die aus meinem Tutorial) fuehren solche Enumeratoren ein, damit man die Collection mit for..in "durchwandern" kann

Greetz
alcaeus

[jbg]

Zitat von faux:

dass foreach nur in Delphi.NET hinzugefügt wurde

Borland hat das auch für Delphi Win32 implementiert.

[jfheins]

Zitat von alcaeus:

Moin,

die Syntax ist an sich korrekt. So wie ich das sehe liegt das Problem darin, dass TForm.Components eine Array-Property ist, und somit keinen Enumerator hat, der fuer for..in aber notwaendig ist. Darin wirds wohl scheitern

Greetz
alcaeus

Grmp ... daran liegts ... damit wäre das wohl erledigt

[alcaeus]

Moin,

du koenntest aber versuchen, mit class helpers einen Enumerator fuer Components in TForm reinzuboxen, das duerfte theoretisch funktionieren.

Greetz
alcaeus