VB.net For Each Next in Delphi ?

[ZeroQool007]

Hallo, folgender VB Code:

Code:

  For Each ri As OrdRspItemType In OrderResponse.OrdRspItem
          TextBox1.Text += ri.PositionNumber.ToString + " " _
            + ri.ProductDescription(0).ProductNameValue + " " _
            + ri.ConfirmedQuantity.Quantity.QuantityValue.ToString + " " _
            + ri.ConfirmedQuantity.Quantity.UoM + vbCrLf
        Next

Zitat:

In diesem Zusammenhang ist eine weitere Schleifenform interessant und wichtig – die For ... Each-Schleife. Sie ist mit der For ... Next-Schleife vergleichbar. Diesmal zählt allerdings keine Variable hoch, sondern die Schleife greift auf alle Elemente einer Sammlung zu.

Wie bekomme ich das in Delphi bzw Delphi.net hin? Suchfunktion und google hat nichts gebracht. .next Befehl kenne ich zB aus ADODataSet, aber hier habe ich nichts vergleichbares. thx im voraus

[edit=alcaeus] :shock: Delphi-Tags mit VB-Code :shock: ;) Mfg, alcaeus[/edit]

[DGL-luke]

Delphi-Quellcode:

var Bezeichner: Sammelbarer_Typ;

For Bezeichner in Enumerierbarer_Typ_mit_Sammelbarer_Typ_Innen_Drin do
  begin
    var := Funktion(Bezeichner);
  end;

[ZeroQool007]

thx klappt

[ZeroQool007]

klappt doch nicht so ganz, der bleibt immer auf dem "1. Datensatz" also der Next Befehl fehlt. Hat jemand eine Idee. Hab schon alles getestet....

[Elvis]

@Luke, das klappt nicht immer so gut.
Vor allem dann nicht, wenn die Klasse von einem VB'ler geschrieben wurde. :mrgreen:
Delphi kann zwar seit BDS2005 for-in, aber die Klasse, die von GetEnumerator zurückgeliefert wird muss eine Methode GetCurrent haben, die dem Typen deiner Variablen entsprechen muss.
Der Compiler wird nicht autom. einen Cast machen wie es bei non-Delphi-.Net Sprachen der Fall ist. ;)

[ZeroQool007]

Hmmmm....das sagt mir jetzt auch nichts! :(