文本文件 I/O,该如何处理

文本文件 I/O
一个程序：
打开一个文本文件，写
  try
    AssignFile(FIniVat,xlsFile);
    Append(FIniVat);

另一个程序，同时打开同一个文本文件，读
    
     写的程序，就会报I/O32 出错。加了TRY

如果避免出错，且数据还得写得进去呢？
[解决办法]
用 TFileStream 对象, 打开时指定 OpenMode
[解决办法]
你这种方式不行，不同进程可以用共享内容，读写同一块内存区域，完事后将该区域数据保存
[解决办法]
这是因为 你打开的文件模式有不正确。 
如果是使用TFileStream;

var
 fs: TFileStream;
begin
  //打开1.txt,本程序可读可写， 其他程序只能写， 不能读。
  fs := TFileStream.Create('1.txt', fmOpenReadWrite or fmShareDenyRead); 
  try
    //......
  finally
    fs.Free;
  end;
end

[解决办法]
Var
   F:Textfile;
Begin
    AssignFile(F, filePath);
    Append(F);
    Writeln(F, Str);
    Closefile(F);
end;

//这种方法，我一直在用没有楼主所说的错误啊。

查看更多 下一篇