将多个文件拷贝到软盘时一张软盘放不下怎么办
编号：QA001795
建立日期: 1999年10月1日 最后修改日期：1999年10月1日
所属类别：
sbc3:
在DELPHI4中将若干个文件拷贝到软盘时如果文件总容量不只一张软盘该怎么办?
回答:
在Delphi中提供了许多File操作函数：
1、获取文件的长度 FileSize, FileSize的例子：
AssignFile(f, OpenDialog1.FileName);
Reset(f);
size := FileSize(f);
S := 'File size in bytes: ' + IntToStr(size);
2、对于文件的拷贝，可以由TFileStream 实现。
3、对于如下的二种情况：
1个文件-->多个磁盘
利用外部程序：arj等工具。
eg: Arj -V1440 myfile
多个文件-->多个磁盘可以利用背包算法实现。（背包算法的实现，可参考《计算机算法基础》一书，华中理工大学出版社 1994）
此问题由李巍回答。
| |
|
|
| |
|
|
