Скачать: CL | DM;

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

← →
Ag2002   (2002-11-29 16:04) [0]

народ, у кого есть простинький пример работы с двухсвязными динамическими списками, на паскале, чтобы там было добавление элемента, удаление, просмотр всего что введенно !!! очень надо а у самого чтото не совсем работает !!!

---

← →
Skier ©   (2002-11-29 16:07) [1]

>Ag2002

> а у самого чтото не совсем работает !!!

Что не работает ?
Где косяк ?

---

← →
Ag2002   (2002-11-29 16:14) [2]

да не могу правельно инициализировать,а потом соответственно делать все остальное

---

← →
Skier ©   (2002-11-29 16:23) [3]

>Ag2002
Да там особо нужно работать только в первым и последним
элементом у них нет указателя (=nil) на предыдущий и следующий элемент соответственно.

А тип элемента примерно такой

PListItem = ^TListItem;
TListItem = packed record
liPrev : PListItem;
liData : TYourType;
liNext : PListItem;
end; //TListItem

---

← →
Ag2002   (2002-11-29 16:45) [4]

ну я делаю так при инициализации liPrev нужно присвоить nil, а liNext оставяю как есть, при добавлении я liPrev даю адрес старого liNext, а номому liNext := nil. Но оно все работает только потом я обращатся к данным не могу они не те что ввёл !!!

---

← →
Skier ©   (2002-11-29 16:52) [5]

>Ag2002
Извини, конечно, но ты память-то выделяешь
var
AListItem : PListItem;
New(AListItem)

и т.д.

---

← →
Skier ©   (2002-11-29 16:56) [6]

>Ag2002

> даю адрес старого liNext

в liPrev адрес не старого liNext а адрес узла созданного на предыдущем шаге...

---

← →
Ag2002   (2002-11-29 17:03) [7]

Память я выделяю !!!!
> в liPrev адрес не старого liNext а адрес узла созданного на предыдущем шаге...
покажи на примере

---

← →
Andrey007   (2002-11-29 17:06) [8]

Я, например, работу со связанными списками переложил на Delphi - делаю TListBox.AddObject. В принципе, тоже самое можно делать и с TComboBox"ом. Насчёт остальных компонентов - не знаю.

---

← →
Ag2002   (2002-11-29 17:12) [9]

Andrey007 - я просто прошу пример проги на пакале под ДОС

---

← →
Darkwin ©   (2002-11-29 17:21) [10]

procedure Add(Last:PListItem)
var
Item:PListItem;
begin
New(Item);
Item^.liData:=что то;
Last^.liNext:=Item;
Item^.Prev:=Last;
end;
где то так, Last соответсвенно последний элемент в списке

---

← →
Ag2002   (2002-11-29 17:48) [11]

а как потом к ним правельно обращатся

---

← →
pasha_golub ©   (2002-11-29 17:54) [12]

Нада сохранить в переменной
var Current: PListItem

Если текущее звено Current.Data
Если следующее Current.Next.Data
Предидущее Current.Pred.Data
и т.д. и т.п.

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.013 c