Компонентный Паскаль/Связанный список: различия между версиями
Содержимое удалено Содержимое добавлено
Fantom78 (обсуждение | вклад) |
Fantom78 (обсуждение | вклад) |
||
Строка 57:
Вставку нового элемента в список рационально (но не обязательно) реализовать в форме метода объекта. Представленный вариант ниже вставляет новый элемент только в конец списка. Для включения элемента в произвольное место, необходимо в объект TDblList свойство "cur"("current", "текущий"). Оно как раз и будет указателем на то место, куда вставлять.
<source lang="oberon2">
PROCEDURE (l: TDblList)Insert(v:INTEGER), NEW;
VAR
el, el1 : POINTER TO TDblElem;
Строка 70:
el1.forward:=el; (* создание перекрёстных ссылок *)
el.backward:=el1;
el.value:=v;
END;
INC(l.len);
| |||