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

UptoLike

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

Рубрика:

229

readln(filename);

if SaveList(persons,filename) {сохранение}

then

begin {если список сохранен в файле}

ColorWindow(20,1,40,3,1);

ShowText('Массив сохранен в файле '+filename,2,2,14,1);

end

else

begin {если была ошибка сохранения}

ColorWindow(15,1,50,3,4);

ShowText('Ошибка записи в файл '+filename,3,2,15,4);

end;

readkey;

end;

{загрузка списка из файла}

procedure LoadArray;

var

filename: string;

begin

{ввод имени файла}

ColorWindow(1,16,80,10,3);

ShowText('Введите имя файла для чтения массива:',10,3,14,3);

gotoxy(50,3);

readln(filename);

if LoadList(persons,filename) {загрузка}

then

begin {если список загружен}

ColorWindow(20,1,40,3,1);

ShowText('Массив загружен из файла '+filename,2,2,14,1);

end

else