Освобождение выделенной для списка памяти
Как показано в процедуре DisposeChecks в Примере 8.10, вы можете перебрать список, дойдя до каждого элемента и освободив его.
procedure DisposeChecks; var Temp: PCheck; begin CurrentCheck := ListOfChecks; { указывает на первую запись } while CurrentCheck <> nil do begin Temp := CurrentCheck^.Next { сохранить указатель Next } Dispose(CurrentCheck); { освобождение текущей записи } CurrentCheck := Temp; { сделать сохраненную запись текущей } end; end;
Пример 8.10 Освобождение памяти для связанного списка.
| |
