Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Работа с нетипизированным файлом

Автор: zavrrrrik 5.9.2007, 16:01

имеется нетипизированный файл длиной 50 байт. вывести его содержимое на экран. скопировать его содержимое в другой файл с помощью оператора repeat. длина блоков 2 байта.в цикле выводить содержимое каждого скопированного блока.

Автор: volvo877 5.9.2007, 16:03

Для домашних заданий, курсовых, существует "Центр Помощи"

Тема перенесена!

Автор: Rodman 5.9.2007, 16:13

M
Rodman

Модератор: Название темы должно отражать ее суть!

Автор: greenpc 6.9.2007, 13:05

zavrrrrik,

Код




var
  i: Integer;
  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2] of Byte;
begin
    AssignFile(FromF, 'ReadFile.txt');
    Reset(FromF, 1);
    AssignFile(ToF, 'WriteFile.txt');
    Rewrite(ToF, 1);
    repeat
        BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
        for i := 1 to NumRead do
        write(chr(buf[i])); (* если выводить как символ *)
        //   write(buf[i]); (* если как код *)
        BlockWrite(ToF, Buf, NumRead, NumWritten);
    until (NumRead = 0) or (NumWritten <> NumRead);
    CloseFile(FromF);
    CloseFile(ToF);
end;