Borland Pascal. Руководство пользователя



         

Освобождение выделенной для списка памяти


Как показано в процедуре 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 Освобождение памяти для связанного списка.

| |




Содержание  Назад