передвижение по списку

[Illidan]

Скажем, есть общий лист на все обьекты(разные типы), есть переменная, содержащая ссылку на один из обьектов(любой из типов). Вопрос, как получить следующий обьект этого же типа из листа?
Для большей понятности еще так можно переформулировать... аналог блитцовских команд After,before.

Illidan
найди переменную в списке и считай следуйшую сравнивая тип, но имхо у тебя кривая архитектура раз тебе нужно такое делать
можно переписать класс списка так чтобы он строил дополнительно еще и масив для поиска, тогда операция поиска в списке была бы очень дешевая

[Illidan]

Насчет архитектуры вполне возможно, что она кривая. Я просто вообще не нашел как передвигаться по списку. Только через Tlink, но он выдает только базовый тип, а мне нужно выполнить метод искомого типа. Были мысли сделать всё через массивы, но тут опятьже нужен динамический массив, а как его сделать не чрезжопноя тоже незнаю.
Вобщем задача следующая, это для пользовательского интерфейса делаю. Есть значит несколько обьектов(окон), и при нажатии TAB они должны переключаться между собой. тоесть, если было активно предыдущее окно то оно становится неактивным и активным становится следующее по списку окно если доходит до последнего в списке то перечлючается опять на первое.

Illidan
ну так надо сделать некий TGuiObject, от него наследовать TWindow, сделать список окон и их крутить
а то что выдает TLink просто принудительно привести к TWindow и всё

[Illidan]

как его принудительно привести? крутить я умею только через eachin. какие еще способы есть для этого?

Illidan
пример

SuperStrict

Type mytype
Field myvar%
EndType

'приведение типов
Local temp:mytype = New mytype
Local temp2:Object = temp;
Local temp3:mytype = mytype(temp2)

Local list:TList = New TList

For Local i%=0 To 10
list.addlast(New mytype)
mytype(list.last()).myvar = i
Next

'как прокручивать TList
Local link:TLink = list.firstlink()

While link <> Null
Print "here we go : "+mytype(link.value()).myvar
link = link.nextlink()
Wend

[Illidan]

еслиб мог, поставил бы две пасибки))