Управление связанным списком
Предположим, вы хотите написать программу для ведения своих личных счетов. Вы можете хранить все данные о счетах в записях, таких как запись типа TCheck, определенная в Примере 8.5. Но при написании программы трудно предположить, с каким количеством сче- тов вам придется иметь дело. Одно из решений здесь состоит в соз- дании большого массива записей счетов, но это приведет к лишним затратам памяти. Более элегантное и гибкое решение состоит в рас- ширении определения записи и включении в нее указателя на следую- щую запись списка, что приведет к образованию связанного списка, показанного ниже:
type PCheck = ^TCheck; TCheck = record Amount: Real; Month: 1..12; Day: 1..31; Year: 1990..2000; Payee: string[39]; Next: PCheck; { указывает на следующую запись } end.
Пример 8.7 Записи в связанном списке.
Теперь вы можете считать каждую запись счета из файла и вы- делить для нее память. Если запись находится в конце списка, поле Next следует сделать равным nil. В вашей программе требуется отс- леживать только два указателя: первый счет в списке и "текущий" счет.
