ForEach:Next mit With:EndWith clever verbinden

[STARGÅTE]

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 ?

[GreyEnt]

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

[STARGÅTE]

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

[NicTheQuick]

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

[AND51]

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