| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

списки

sat ©   (2006-12-02 23:11:00) 

как вставить в начало линейного списка  реализованный при помощи массива?

описание массива


 TInfo = string;

 TArrList = class
 private
   Arr: array of TInfo;
   Next: array of Longword;
   FirstFree: longword;
   FirstUse: longword;
   FCapacity: longword;
 public
   procedure Insert(AInfo: Tinfo; Pos: longword);
   constructor Create(aCapacity: longword);
   destructor Destroy; override;
   function Delete(AInfo: TInfo): boolean;
   procedure Add(AInfo: TInfo);
 end;


---

Alx2   (2006-12-03 13:40:00) [1]

>sat ©   (02.12.06 23:11)

Точно так-же, как в обычный линейный список. Только свято помним и следим за тем, что Next показывает куда надо.

---

Cawa   (2006-12-03 13:29:00) [2]

Ты хоть сам понял, что спросил?
Что вставить?
Насколько я вижу, здесь есть  процедура insert, при помощи нее и вставляй!!

---

Наверх