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

UptoLike

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

Рубрика:

196

Begin

…

assign(F,'Circles.dat'); {связываем файловую переменную F

с именем файла}

rewrite(f); {открываем файл для записи}

for i:=1 to n do {сохраняем записи в файле}

write(f , a[i]);

close(f); {закрываем файл}

…

Пример 2: Загрузим массив окружностей A из файла с именем

«circles.dat»

…

assign(F,'Circles.dat'); {связываем файловую переменную F

с именем файла}

reset(f); {открываем файл для чтения}

n:=FileSize(f); {определяем количество записей в файле}

for i:=1 to n do {загружаем записи из файла}

read(f , a[i]);

close(f); {закрываем файл}

…

Оператор With

Оператор With позволяет упростить обращение к полям записи.

Общий вид оператора следующий: With X do Y;

где X – имя переменной типа запись

Y – любой оператор

В операторе Y при обращении к полям записи X имя X указывать не

нужно.

Пример: Выведем A – массив записей типа TCircle на экран (смотри

примеры выше)

For i:=1 to n do