Организовать перенос из одного файла в другой с помощью нетипизированого файла.

@ApocaU · Регистрация: 10.01.2013

Author24 — интернет-сервис помощи студентам

@LiquidSnake · 26.05.2013, 10:53

примерно так

Pascal

Var
  f1,f2 : file;
  buffer:byte;
begin
  assign(f1,'файл откуда переносить');
  assign(f2,'файл куда переносить');
  reset(f1,1);
  rewrite(f2,1);
  while not eof(f1) do
  begin
     blockread(f1, buffer, 1);
     blockwrite(f2,buffer,1);
  end;
  close(f1);
  close(f2);
end;

@ApocaU 0 / 0 / 0 Регистрация: 10.01.2013 Сообщений: 74
		1
	Организовать перенос из одного файла в другой с помощью нетипизированого файла. 26.05.2013, 10:47. Показов 1653. Ответов 1 Метки нет (Все метки) Организовать перенос из одного файла в другой с помощью нетипизированого файла. 0

	26.05.2013, 10:53

Организовать перенос из одного файла в другой с помощью нетипизированого файла.

Решение