(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 
 

Нерегулярные связанные списки Delphi

Источник: codingrus
Kest

Другой метод создания нерегулярных массивов - использование связанных
списков. Каждая ячейка содержит указатель на следующую на своем уровне иерар-
хии и указатель на список ячеек, находящихся на более низком уровне иерархии.
Например, ячейка многоугольника может содержать указатель на следующий мно-
гоугольник и указатель на ячейку, в которой определены координаты его первой
вершины.
Следующий код приводит объявления типа данных, которые можно использо-
вать для построения изображений, состоящих из многоугольников на основе свя-
занных списков.

type
PPictureCell = ATPictureCell;
TPictureCell = record
NextPicture : PPictureCell;
FirstPolygon : PPolygonCell;
end;
PPolygonCell = ATPolygonCell;
TPolygonCell = record
NextPolygon : PPolygonCell;
FirstPoint : PPointCell;
end;
PPointCell = "TPointCell;
TPointCell = record
X, Y : Integer;
NextPoint : PPointCell;
end;



С помощью этой методики можно без труда добавлять и удалять рисунки, мно-
гоугольники или точки в любом месте структуры данных.
Программа Poly использует^тот подход (см. рис. 4.7). Она позволяет форми-
ровать связанный список из переменных типа TPolyLineCells, каждая из кото-
рых содержит связанный список TPointCells. Для рисования ломаных линий
следует использовать левую кнопку мыши: при каждом нажатии на нее к ломан-
ной линии добавляется новая точка. Нажатие правой кнопки соответствует окон-
чанию рисования линии.
Окно программы Poly
Рис. 4.7. Окно программы Poly

Ссылки по теме


 Распечатать »
 Правила публикации »
  Обсудить материал в конференции Embarcadero »
Написать редактору 
 Рекомендовать » Дата публикации: 24.08.2012 
 

Магазин программного обеспечения   WWW.ITSHOP.RU
Enterprise Connectors (1 Year term)
Delphi Professional Named User
Allround Automation PL/SQL Developer - Annual Service Contract - Unlimited
VMware Fusion 10 Pro, ESD
IBM RATIONAL Quality Manager Quality Professional Authorized User Single Install License + Sw Subscription & Support 12 Months
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
СУБД Oracle "с нуля"
Delphi - проблемы и решения
Краткие описания программ и ссылки на них
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
Обсуждения в форумах
Слот Биг Бэнг (6)
Большой взрыв как правящая теория сотворения мира. Теперь вы можете поиграть слот Big Bang в...
 
Отличается ли ДрифтКазино от беттинга? (57)
Друзья, давно заметил, что на Дрифте уже несколько месяцев во всю рекламируется и предлагается...
 
Подскажите лучшее онлайн казино (8)
Вот нашёл интересную игровую площадку, и это онлайн казино Вавада. Может кто что подсказать по...
 
Помощь по MS Access (345)
Доброе время суток. Случайно оказался на этом сайте, искал статьи по OLAP. Вижу, что...
 
Требуется Краснодар: Java -разрабочик (2)
Обязанности: Разработка корпоративных backend-приложений для автоматизации розничных продаж...
 
 
 



    
rambler's top100 Rambler's Top100