IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

> Динамические структуры данных, Читаю FAQ и не могу понять...
Бродяжник
сообщение 7.06.2005 8:03
Сообщение #1


Бывалый
***

Группа: Пользователи
Сообщений: 206
Пол: Мужской

Репутация: -  3  +


Бьюсь над созданием списка с возможностью удаления элементов из середины. Вспомнил про FAQ на любимом форуме, полез туда. Читаю:
Цитата
Предположим, что надо удалить элемент, расположенный после элемента, на который указывает ссылка q.

{удаление элемента из середины списка после q^}
Procedure Del (Var q: point);
Var r: point;
Begin
r:=q^.Next;
q^.Next:=q^.Next;
r^.Next:=nil
End;

Как это работает?! :o
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Бродяжник
сообщение 7.06.2005 9:10
Сообщение #2


Бывалый
***

Группа: Пользователи
Сообщений: 206
Пол: Мужской

Репутация: -  3  +


Спасибо! А то я в себе засомневался: вдруг я вижу ошибку там, где ее нет? <_<
2 Volvo
Код для DeleteItem можно глянуть?

Сообщение отредактировано: Бродяжник - 7.06.2005 9:15
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 7.06.2005 12:24
Сообщение #3


Гость






Цитата(Бродяжник @ 7.06.05 9:10)
Код для DeleteItem можно глянуть?

Можно конечно, только вот для НЕ ООП-списка это не пойдет. Я передаю в DeleteItem указатель на Item, который нужно удалить, и забываю про него, меня не интересует, что с этим указателем будет дальше... Подробности - здесь: ООП - Односвязный список (list.rar)
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 19.06.2025 11:47
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"