PureBoard

Verfasst: **04.03.2008 04:10**

Tachchen,

ich bin ja immer noch dabei die ganzen 3.3 "Artefakte" in sauberes 4.x um zu schreiben.

Da ich in allen ForEach:Next - Schleifen auch die LinkedList um die es geht, sehr oft verwende würde ich gerne immer gleich ein With:EndWith mit dabei haben:

ForEach Element()
With Element()
; Code
EndWith
Next

Nun finde ich das aber irgendwie zu viel und schreibe es derzeit so, was aber nicht ganz Sauber ist:

ForEach Element() : With Element()
; Code
Next : EndWith

Leider darf man ja in Macros kein With zu stehen haben, sonst könnte ich mir selber 2 Schlüsselwörter definieren in denen ForEach:With und EndWith:Next zusammen gebaut sind.

Mein taum wäre dann:

MyForEach Element()
; Code
MyNext

Hat einer von euch eine Idee wie ich nun diese Sache gut lösen kann ?

Verfasst: **04.03.2008 13:55**

Hi Stargate,

ich hampel auch sehr viel mit LinkedLists herum. Weil ist einfach Genial.
Welche möglichkeiten sich da auftun.

Aber deine Frage hab ich nicht verstanden?
Hast Du mal ein Einfaches Beispiel?

With Element()
; Code
EndWith

Verfasst: **04.03.2008 14:02**

ich würde gerne die extreme vereinfachung (duch ForEach, und With) noch mehr vereinfachen indem ich die beiden schlüsselWörter zusammenfasse, anstatt immer beide hinereinander zu verwenden:

Code: Alles auswählen

Structure Objekt
 Sprite.l
 x.f
 y.f
 w.f
 v.f
EndStructure

Global NewList Objekt.Objekt()

;...

ForEach Objekt() : With Objekt()
 \x + Cos(\w)*\v
 \y + Sin(\w)*\v
 DisplaySprite3D(\Sprite, \x, \y)
Next : EndWith

Verfasst: **04.03.2008 14:09**

Die Idee finde ich auch gut. Passt aber wohl eher in die Wunschliste im
engl. Forum.

Verfasst: **04.03.2008 18:36**

Wurde auch schon längst requested, musst mal suchen. Weiß nicht, was zwischenzeitlich draus geworden ist.

PureBoard

ForEach:Next mit With:EndWith clever verbinden

ForEach:Next mit With:EndWith clever verbinden