profile="http://gmpg.org/xfn/11"> Копирование текстовых файлов в Паскале. | Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Копирование текстовых файлов в Паскале.

Копирование текстовых файлов в Паскале.

program Copy_files;

  {Копирование текстовых файлов}

var
  f_t1, f_t2: Text;
  s_Text: string;

begin
  Assign(f_t1, 'e:\file1.txt'); //файловая переменная связывается с текстовым файлом
  reset(f_t1);  //файл открывается в режиме чтения
  Assign(f_t2, 'e:\file2.txt');
  rewrite(f_t2); //файл открывается в режиме записи
  while not EOF(f_t1) do
  begin
    readln(f_t1, s_Text);
    writeln(f_t2, s_Text);
  end;
  Close(f_t1);
  Close(f_t2);

  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Комментарии запрещены.