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

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

221
{Загрузка списка записей list из файла с именем filename
Возвращается true – если список загружен
false – если была ошибка чтения
}
function LoadList(var list:ListOfPerson; const filename:string):boolean;
var
f:file of MedicalInfo;
n,i:byte;
begin
assign(f,filename);
{$I-}
reset(f);
{$I+}
if ioresult<>0
then
begin
LoadList:=false;
exit;
end;
n:=FileSize(f);
if (n<0) or (n>maxNInfo)
then
begin
close(f);
LoadList:=false;
exit;
end;
Clear(list);
for i:=1 to n do
read(f,list.person[i]);
close(f);
list.n:=n;
LoadList:=true;
end;

Страницы