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

Параметры
переменная = любое допустимое имя
Описание
Если вы не читали выше о команде TYPE, Вам стоило бы это сделать, перед тем как продолжить чтение.
Когда вы объявляете тип, Вы должны привязать некоторые переменные для хранения в нём. Используя команду Field между Type и End Type, вы можете задать переменную, которая может быть использована в последствии в каждом элементе типа, созданном командой New.
См также: Type, End Type.
Пример
; Объявление типа СТУЛ
Type STUL
Field X 
Field Y 
Field VISOTA
End Type 

; Создаём 100 стульев, используя FOR ... NEXT и имя для коллекции типов KOMNATA
For tempx = 1 To 10 
For tempy = 1 To 10 
KOMNATA. STUL = New STUL
KOMNATA\x = tempx 
KOMNATA\y = tempy 
KOMNATA\VISOTA = Rnd(0,10); устанавливаем произвольную высоту от 0 до 10
Next 
Next 

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