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

       

Построение списка


Ниже приведена процедура, которая строит связанный список записей, считывая их из файла. Здесь подразумевается, что вы отк- рыли файл записей TCheck и именем CheckFile, который содержит по крайней мере одну запись.

var ListChecks, CurrentCheck: PCheck;

procedure ReadChecks; begin New(ListOfChecks); { выделить память для первой записи } Read(CheckFile, ListOfChecks^); { считать первую запись } CurrentCheck := ListOfChecks; { сделать первую запись текущей } while not Eof(CheckFile do begin New(CurrentCheck^.Next); { выделить память для следующей записи } Read(CheckFile, CurrentCheck^.Next^); { считать следующую запись } CurrentCheck := CurrentCheck^.Next; { сделать следующую запись текущей } end; CurrentCheck^.Next := nil; { после последней считанной записи следующей нет } end.

Пример 8.8 Построение связанного списка.



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