}

Delphi.int.ru — Портал программистов

Вход Регистрация | Забыли пароль?

Просмотр кода

Идентификатор: 9fe6cdb9 Описание: Код загружен: 13 сентября 2009, 19:02 (Ерёмин А.А.)

  1. var
  2. Vf1, Vf2 : file;
  3. NRead, NWrite: Integer;
  4. Buf: array[1..1024] of Char;
  5. begin
  6. AssignFile(Vf1, 'read.txt');
  7. Reset(Vf1, 1); {Устан-ет размер записи входного файла =1}
  8.   AssignFile(Vf2, 'write.
  9. AssignFile(Vf2, 'write.txt');
  10. Rewrite(Vf2, 1); { BlockRead(Vf1, Buf, SizeOf(Buf), NRead); {читает данные}
  11.   BlockWrite(Vf2, Buf, NRead, NWrite); {записывает данные}
  12.   until
  13. BlockWrite(Vf2, Buf, NRead, NWrite); {Vf1);
  14.   CloseFile(Vf2);
  15. end;</code>

Ссылка на данный код:

На главную страницу сервиса обмена кодом »