Форум: "Начинающим";
Текущий архив: 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.44 MB
Время: 0.064 c