文件类型如何互相赋值

Question

肯定不行了！
这样就实现了问舰对拷从file2--->file1;
var File1:TextFile;
var File2:TextFile;
var Str:String;
begin
       OpenDialog1.Execute;
       AssignFile(File2,OpenDialog1.FileName);
       SaveDialog1.Execute;
       AssignFile(File1,SaveDialog1.FileName);
       Reset(File2);
       Rewrite(File1);
       While not Eof(File2) do
       Begin
             Readln(File2,Str);
             Writeln(File1,Str);
       end;
       CloseFile(File2);
       CloseFile(File1);
end;

Answer 1

假如是文本文件：
var
  s:TStringList;s:= TStringList.Create;
s.LoadFromFile('file1');
s.SaveToFile('file2');
s.Free;

Answer 2

window不是有一个CopyFile(file1,file2，falg)吗？何必这么麻烦！

Answer 3

我用file1: textfile,file2  :textfile;
 copyfile(file1,file2,false),它报text and Pchar incompatible,应该如何用，谢谢！

Answer 4

file1和file2是文件类型！需要打开文件，然后按上面方法来进行copy.
只能用在那个地方！不能混用~！
而copyfile只需指定文件的路径
而用copyfile的delphi申明是：
function CopyFile(lpExistingFileName, lpNewFileName: PChar; bFailIfExists: BOOL): BOOL; stdcall;
所以用：
var Source:PChar;
var Destination:PChar;
begin
         GetMem(Source,Length('c:\source.txt');
         StrPCopy(Source,'C:\source.txt');
         GetMem(Destination,Length('c:\destination.txt');
         StrPCopy(Destination,'C:\destination.txt');
         CopyFile(Source,Destination,TRUE);
end;
//copyfile最后一个参数为：如果目标路径存在同名文件，是覆盖还是退出，
true为退出，false,为覆盖！
   

Answer 5

何必那么麻烦，还要去分配内存，直接指定路径不就得了。
copyfile(源文件的路径，目标文件的路径，True或False)