Однонаправленный список. Удаление

@MehantroniK · Регистрация: 03.04.2011

У меня вопрос. Есть однонаправленный (динамический) список. Как сделать так, чтобы по нажатию клавиши он ВЕСЬ удалился из памяти? Это как то через цикл делается или есть одна команда?

deathNC · 03.03.2012, 22:28

Delphi

type
  PItem = ^TItem;
  TItem = record
    Value: Integer;
    pNext: PItem;
  end;
 
....
 
procedure Kill_em_All(var item: PItem);
var
  buf: PItem;
begin
  While item <> nil do
    begin
      buf := item^.pNext;
      Dispose(item);
      item := buf;
    end;
end;

Что-то типа этого

@MehantroniK · 03.03.2012, 23:07 **[ТС]**

Спасибо чувак!

Добавлено через 26 минут
Запнулся. Написал как ты посоветовал. Удаляет на ура! кроме "головы".

Delphi

 while HEAD<>NIL do
  begin
   CUR:=HEAD^.NEXT;
   DISPOSE(HEAD);
   HEAD:=CUR;
  end;
if HEAD=NIL then
 DISPOSE(HEAD);

попробовал так еще, но кажется что так делать вообще не полагается. Как очистить "голову"?

deathNC · 03.03.2012, 23:19

MehantroniK, хм... странно. Ну, оставь так, если работает. Но код, который я писал, вроде должен и голову отрубать (удалять)

@MehantroniK · 03.03.2012, 23:27 **[ТС]**

Сорри, сам недоглядел

код работает отлично

просто строка добавлялась из одной переменной, про которую забыл

еще раз спасибо

@MehantroniK 6 / 6 / 0 Регистрация: 03.04.2011 Сообщений: 55
		1
	Однонаправленный список. Удаление 03.03.2012, 21:48. Показов 848. Ответов 4 Метки нет (Все метки) У меня вопрос. Есть однонаправленный (динамический) список. Как сделать так, чтобы по нажатию клавиши он ВЕСЬ удалился из памяти? Это как то через цикл делается или есть одна команда? 0

deathNC 1904 / 1015 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	03.03.2012, 23:19	4
	MehantroniK, хм... странно. Ну, оставь так, если работает. Но код, который я писал, вроде должен и голову отрубать (удалять) 0

@MehantroniK 6 / 6 / 0 Регистрация: 03.04.2011 Сообщений: 55
	03.03.2012, 23:27 [ТС]	5
	Сорри, сам недогляделкод работает отличнопросто строка добавлялась из одной переменной, про которую забылеще раз спасибо 0

Опции темы