ну собсно в LinkedList есть :
Rem
BBDoc: Enumerator Object use by TList in order to implement Eachin support.
End Rem
Type TListEnum
Field _link:TLink
Method HasNext()
Return _link._value<>_link
End Method
Method NextObject:Object()
Local value:Object=_link._value
Assert value<>_link
_link=_link._succ
Return value
End Method
End Type
в Blitz.Mod есть ключевое слово EachIn ...
а где описание етой функции ?!
или ето типо встроенное в транслятор ?
в общем есть куча (>50 екземпляров) такого кода :
For local p:Blablabla = EachIn Bla_1
...
Next
а надо зделать вот так :
For local a:Blabla = EachIn Bla_2
For local p:Blablabla = EachIn a
...
Next
Next
смысл всего остального не меняется ...
дело в другом ... как ето поменять без особого изврата ?
потому что тупо вставить второй цикл ето изврат
я так понимаю что EachIn разворачивается в While - Wend ...
(ето исходя из того как щетчик для связаного списка зделан)