Списки

[black_bullet]

Как удалить полностью весь список, одной процедурой?

[Serge_Bliznykov]

если речь идёт о связном списке - то никак!
Нужно в цикле перебирать элементы списка и освобождать занимаемую память!

[Stilet]

если речь идёт о связном списке - то никак!

Обрати внимание на подвох:

удалить полностью весь список, одной процедурой

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

[Serge_Bliznykov]

Сообщение от Stilet

Обрати внимание на подвох:

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

Виталий, я об этом подумал. Но решил, что раз автор темы задаёт такой вопрос, то он подразумевает "одной процедурой" == "одной командой", имея в виду какую-то встроенную (готовую) процедуру.

Хотя, по сути, полностью с Вами согласен!

[Stilet]

имея в виду какую-то встроенную (готовую) процедуру.

Ну с таким успехом можно и придраться к методу Clear в TList.
Вообще-то мне кажется что ТС просит чтоб ему написали процедуру освобождения списка...

[Serge_Bliznykov]

Сообщение от Stilet

Ну с таким успехом можно и придраться к методу Clear в TList.
Вообще-то мне кажется что ТС просит чтоб ему написали процедуру освобождения списка...

показал бы свой код описания/заполнения списка, может и написали бы ему такую процедуру.
Я думаю, что у него вообще ничего нет, а задание(вопрос) есть..
Вот он и не знает, что с этим всем делать...

[ViktorR]

Это не сложно.
Надо написать процедуру, которая будет работать по следующему алгоритму:
1. Beg - указатель на начало списка, p - вспомогательный указатель,
pp - указатель, который хранит связку на следующий элемент списка (описывается в элементе списка).

While Beg <> Nil do
begin
   p := Beg;
   Beg := Beg^.pp;
   dispose(p);
end;

Ecё ...


Как-то так, ...