На этом шаге мы покажем как очистить однонаправленный список..

    Приведем рекурсивную процедуру очистки однонаправленного линейного списка:

 Procedure Free_List (var pList: PtrRec);
 Begin
       If pList<>Nil
             Then Begin
                      Free_List (pList^.pNext);
                      Dispose (pList);
                  End; 
 End;

    На следующем шаге мы рассмотрим формирование списка с изменением порядка поступающих элементов.

Предыдущий шаг Содержание Следующий шаг