Показать сообщение отдельно
Старый 18.01.2011, 16:51   #17
IgorOK
Мастер
 
Аватар для IgorOK
 
Регистрация: 26.10.2009
Сообщений: 1,194
Написано 615 полезных сообщений
(для 2,209 пользователей)
Ответ: начать перебор не с первого элемента

Никаких хендлов тут не нужно. Куда проще воспользоваться командами Insert (лучше посмотри справку, в дальнейшем может быть полезно) Общий принцип таков:

Type Entity
End Type

For ent.Entity=Each Entity
	If some_moment Then Insert ent Before First Entity
Next

Для примера:

Type Entity
	Field num
End Type

Print "========================Before"

For num=1 To 5
	ent.Entity=New Entity
	ent\num=num
	Print ent\num
Next

Print "========================After"

For ent=Each Entity
	If ent\num=5	;some moment
		Insert ent Before First Entity
	EndIf
Next

For ent=Each Entity
	Print ent\num
Next
__________________
(Offline)
 
Ответить с цитированием