VPF::Кольцевой список - Форум программистов

Ripper

Дата 3.12.2006, 12:32 (ссылка)

(нет голосов)

Загрузка ...

Lonely soul...

Профиль
Группа: Участник
Сообщений: 920
Регистрация: 30.6.2004
Где: г. Москва

Репутация: нет
Всего: 23

Есть кольцевой список, где последний элемент указывает на начальный. Как удалить все его элементы, и после этого pFisrt:=nil ?

Код


procedure Delete_Ring(var pFirst:PNode);
var pTemp,pTemp2:pNode;
begin
 if pFirst=nil then exit;
 if pFirst^.pNext=pFirst then
  begin
   Dispose(pFirst);
   pFirst:=nil;
   Exit;
  end;
//Здесь основная часть процедуры, которая не получается
end;

--------------------

"Он знает: надо смеяться над тем, что тебя мучит, иначе не сохранишь равновесия, иначе мир сведет тебя с ума" - Над кукушкиным гнездом

volvo877 (Online)

Дата 3.12.2006, 21:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Ripper, вот так не проще будет?

Код

procedure Delete_Ring(var pFirst:PNode);
var pp: pNode;
begin
  if pFirst=nil then exit;

  while pFirst^.pNext <> pFirst do begin
    pp := pFirst^.pNext;
    pFirst^.pNext := pp^.pNext;
    Dispose(pp); pp := nil;
  end;

  Dispose(pFirst); pFirst:=nil;
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »