Основы программирования на языке Turbo Pascal. Беляева И.В. - 217 стр.

UptoLike

Составители:

Рубрика:

217

end;

{Очистить список записей list}

procedure Clear (var list:ListOfPerson);

{Добавить в конец списка list запись person

Возвращается true – если запись была вставлена

false – если запись не была вставлена

}

function AddPerson (var list:ListOfPerson;

const person:MedicalInfo):boolean;

{Удалить запись номер del из списка list

Возвращается true – если запись была удалена

false – если запись не была удалена

}

function DelPerson (var list:ListOfPerson;

const del:byte):boolean;

{Сортировка списка записей list}

procedure SortList (var list:ListOfPerson);

{Сохранение списка записей list в файле с именем filename

Возвращается true - если список сохранен

false - если была ошибка записи в файл

}

function SaveList (var list:ListOfPerson;

const filename:string):boolean;

{Загрузка списка записей list из файла с именем filename

Возвращается true - если список загружен

false – если была ошибка чтения

}

function LoadList (var list:ListOfPerson;

const filename:string):boolean;