如何备份文件到软磁盘

Question

var
f:textfile;
begin
assignfile(f,edit1.text);
append(f);
writeln(f,'aaaaaaaaaaaa');
flush(f);//  
closefile(f);
end;
end;

Answer 1

var
f:textfile;
begin
assignfile(f,edit1.text);
append(f);
writeln(f,'aaaaaaaaaaaa');
flush(f);//强行将数据写入磁盘；  
closefile(f);
end;
其他的源代码请跟我联系
[email protected]

Answer 2

更正：
var
f:textfile;
begin
assignfile(f,文件名);
append(f);
writeln(f,edit1.text);
flush(f);//强行将数据写入磁盘；  
closefile(f);
end;

Answer 3

var
  vFreeSpace, a1, a2, a3, a4: DWORD; //需规范命名规则自己看着办 :-)
begin
  if GetDiskFreeSpace('A:\', a1, a2, a3, a4) then//假设A:\
  begin
    vFreeSpace := //由a1..a4计算剩余空间，具体计算公式请查阅在线帮助，我也记不清了~~
    if FileSize(Edit1.Text) > vFreeSpace then 
　　//我不知道是否是FileSize，总之，　是一个检测文件大小的函数 :-)
    begin
　　　 ShowMesage('no enought disk free space!');
    end
    else begin
      CopyFile(Edit1.Text, 目标文件名, 是否强行overwrite);
    end;
  end
{
//以下语句以不写，如果上述if语句为False，系统(OS:Win2K）会弹出框框
  else begin
    有可能磁盘不存在！
  end;
}
end;
当然，你也可以用if CopyFile检测拷贝是否成功，也可以使用线程来实现
也可以用FileRead,FileWrite来实现，你爱怎样就怎样~~~