Показать сообщение отдельно
Старый 04.09.2005, 05:48   #10
impersonalis
Зануда с интернетом
 
Аватар для impersonalis
 
Регистрация: 04.09.2005
Сообщений: 14,014
Написано 6,798 полезных сообщений
(для 20,935 пользователей)
Insert

Параметры
отсутствуют
Описание
Я не знаю точно, где на практике Вы будете использовать эту команду, но в основном для выбора: где Вы вставите текущий элемент типа в коллекции. Когда вы создаёте новый элемент типа командой NEW, он автоматически добавляется в конец коллекции. Используйте INSERT наряду с BEFORE и AFTER (и командами выбора FIRST и LAST), чтобы поместить элемент именно там, где хотите. Возможно, Вам никогда не понадобиться эта команда. Но здесь предполагается, что нужна. Ознакомьтесь с примером.
См. также: Type, New, Before, After, First, Last, Each, Delete.
Пример
;пример по INSERT 

;Объявление типа с созданием поля для контроля последовательности создания.
Type CHAIR 
Field created 
End Type 

;Создание 10 стульев и присваивание их полям порядковых номеров
For t = 1 To 10 
room.chair= New Chair 
room\created = t 
Next 

;Создание нового стула (11ого)
room.chair= New Chair 

; Устанавливаем порядковый номер - 11ый
room\created=11 

;Теперь, давайте вставим этот стул ПЕРЕД первым в коллекции
Insert room Before First Chair 

;Давайте проитерируем все стулья и посмотрим их порядковые номера
For room.chair = Each chair 
Print room\created 
Next
__________________
http://nabatchikov.com
Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz
А я растила сына на преданьях
о принцах, троллях, потайных свиданьях,
погонях, похищениях невест.
Да кто же знал, что сказка душу съест?
(Offline)
 
Ответить с цитированием
Эти 4 пользователя(ей) сказали Спасибо impersonalis за это полезное сообщение:
ABTOMAT (05.01.2009), krlmisha (01.06.2011), pentod65 (10.02.2009), tormoz (30.10.2008)