有没有办法检查文件是否已被 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 以获取更多信息。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)