在delphi中，标准的创建或打开文件步骤：
var
fp:TextFile;assignfile（fp,' 文件名'）;与磁盘文件关联 reset(fp);读方式打开
rewrite（fp）;写方式打开，如果已有就覆盖
append（fp）;追加方式打开closefile(fp);
另外你可以用流方式（TFileStream）来读取文件，对文本不太适合
var
fp:TextFile;assignfile（fp,' 文件名'）;与磁盘文件关联 reset(fp);读方式打开
rewrite（fp）;写方式打开，如果已有就覆盖
append（fp）;追加方式打开closefile(fp);
另外你可以用流方式（TFileStream）来读取文件，对文本不太适合
解决方案 »
免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货