Uses Crt;

End.

Readln; Close(F);

BlockRead(F, Rec, Sizeof(Rec), Result); Writeln(I);

BlockRead(F, I, Sizeof(I), Result);

Reset(F, 1);

Begin

END.

CLOSE(TOF);

CLOSE(FROMF);

BLOCKWRITE(TOF, BUF, NR, NWR);

BLOCKREAD(FROMF, BUF, SIZEOF(BUF), NR);

REPEAT

ASSIGN(TOF,NAME);

READLN(NAME);

ASSIGN(FROMF, NAME);

READLN(NAME);

BEGIN

WRITE(‘ИМЯ ВХОДНОГО ФАЙЛА ’);

WRITE(‘ИМЯ ВЫХОДНОГО ФАЙЛА ’);

RESET(FROMF, 1); {существующий файл}

REWRITE(TOF, 1);{новый файл}

UNTIL (NR = 0) OR (NWR <> NR);

В примере программы при открытии файла без типа в вызове процедуры RESET указана длина записи равная 1. В этом случае при копировании файла не будут записаны лишние символы в новый файл.

Пример 8. Допустим имеем такой файл: dЦHello! Здесь: d - ASCII 100, Ц - ASCII 150, Hello! - строка из 6-ти символов. Организовать чтение из файла с выводом на экран.

type R = record

A: Byte;

C: Array[1..6] of Char; end;

var F: File; I: Byte; Rec: R; Result: Word;

Assign(F, '1.txt'); { связываем файл с переменной}

{$I-}

{$I+}

if IOResult<>0 then Halt;

Writeln('Rec values: '); Writeln('A: ', Rec.A); Writeln('S: ', Rec.C);

В примере функция SIZEOF принимает в качестве параметра любую переменную и возвращает ее размер в байтах. Размер переменных стандартных типов (Integer, Byte....) можно найти в таблицах типов. Поэтому SIZEOF иногда очень выручает, упрощая работу. Дополнительный параметр процедуры RESULT указывает размер буфера, который используется для передачи данных. Буфер по умолчанию равен 128 байт. Если его явно не указывать, то Паскаль устанавливает это значение.

Пример 9. Сформировать данные для записи в файл.

type R = record

A: Integer;

B: Word; end;

var F: File;

Result: Word;

C: Char;

Дата добавления: 2013-12-13