const
  inp='f1.txt';
  out='f2.txt';
var
  f1,f2:file of byte;
  a:byte;
begin
  assign(f1,inp); assign(f2,out);
  reset(f1); rewrite(f2);
  while not eof(f1) do begin
    read(f1,a);
    write(f2,a);
  end;
  close(f1);
  close(f2);
end.

[[[[[[[[[[[[*****[b][color=FF0000][size=2]代做毕业设计[/size][/color][/b]*****]]]]]]]]]]]]
主营:
[color=FF0000][size=1]VB Delphi VC Access SqlServer[/size][/color]等
QQ: [size=1]383147818[/size]

//: Test: CopyTxt.cpp
//赋值txt文件1到txt文件2
#include <iostream>
#include <string>
#include <fstream>
#include <string>
using namespace std;

int main (int argc, char *argv[])
{
    string str1;
    ifstream in("Read1.txt");
    ofstream out("Write1.txt");
    if (!in) {
        cout << "ERROR" << endl;
        return -1;
    }
    else
        while (in >> str1)
            out << str1;
        cout << "Suceess" << endl;
            
    return 0;
}///:~

Dos 方式 『Free Pascal(32位操作系统)下调用cmd』

Uses dos;

procedure callcmd(command:string);
begin
  SwapVectors;
  Exec(GetEnv('COMSPEC'),'/c'+Command);
  SwapVectors;
  if DosError<>0 then begin
    writeln('Error:Could not execute Command.com.');
    readln;
  end;
end;

begin
  ……
  callcmd('copy f1.txt f2.txt');
  ……
end.

由于是转换问题，就等于从1文件中读取数据写入到2文件中去，
打开文件借口，一切搞定，
LZ可以先SAVE一下，
然后创建2个TXT文件，
在文件1中随便写点什么，
运行保存后出现的EXE文件，会发现2文件中有1文件的数据，
程序如下
var
        a:string;
begin
        assign(input,'1.txt');reset(input);
        assign(output,'2.txt');rewrite(output);
        read(a);
        write(a);
        close(input);close(output);
end.

const
  inp='f1.txt';
  out='f2.txt';
var
  f1,f2:file of byte;
  a:byte;
begin
  assign(f1,inp); assign(f2,out);
  reset(f1); rewrite(f2);
  while not eof(f1) do begin
    read(f1,a);
    write(f2,a);
  end;
  close(f1);
  close(f2);
end.