Форум: "Начинающим";
Текущий архив: 2006.12.24;
Скачать: [xml.tar.bz2];

Вниз

списки   Найти похожие ветки 

← →
sat ©   (2006-12-02 23:11) [0]

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

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


 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;


---

← →
Cawa ©   (2006-12-03 13:29) [1]

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

---

← →
Alx2 ©   (2006-12-03 13:40) [2]

>sat ©   (02.12.06 23:11)

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.12.24;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.039 c