有没有办法检查文件是否已被Delphi中的ReWrite打开?
代码会是这样的:
AssignFile(textfile, 'somefile.txt');
if not textFile.IsOpen then
Rewrite(textFile);
最佳答案
您可以获得文件模式。 (等一下,我将创建一个示例)。
TTextRec(txt).Mode 为您提供模式:
55216 = closed
55217 = open read
55218 = open write
fmClosed = $D7B0;
fmInput = $D7B1;
fmOutput = $D7B2;
fmInOut = $D7B3;
在系统单元中搜索TTextRec以获取更多信息。
关于delphi - 检查文件是否在 Delphi 中打开,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/141302/