Question

有没有办法检查Delphi中的ReWrite是否已打开文件？

代码会是这样的：

AssignFile(textfile, 'somefile.txt');
if not textFile.IsOpen then
   Rewrite(textFile);

Answer 1

您可以获取文件模式。（有一刻，我会创建一个例子）。

TTextRec（txt）.Mode为您提供模式：

55216 = closed
55217 = open read
55218 = open write

fmClosed = $D7B0;
fmInput  = $D7B1;
fmOutput = $D7B2;
fmInOut  = $D7B3;

在系统单元中搜索TTextRec以获取更多信息。

Answer 2

试试这个：

function IsFileInUse(fName: string) : boolean;
var
  HFileRes: HFILE;
begin
  Result := False;
  if not FileExists(fName) then begin
    Exit;
  end;

  HFileRes := CreateFile(PChar(fName)
    ,GENERIC_READ or GENERIC_WRITE
    ,0
    ,nil
    ,OPEN_EXISTING
    ,FILE_ATTRIBUTE_NORMAL
    ,0);

  Result := (HFileRes = INVALID_HANDLE_VALUE);

  if not(Result) then begin
    CloseHandle(HFileRes);
  end;
end;

Answer 3

这很好用：

function IsOpen(const txt:TextFile):Boolean;
const
  fmTextOpenRead = 55217;
  fmTextOpenWrite = 55218;
begin
  Result := (TTextRec(txt).Mode = fmTextOpenRead) or (TTextRec(txt).Mode = fmTextOpenWrite)
end;

Answer 4

我发现将布尔变量保留为伴侣更容易;例如：bFileIsOpen。无论文件何处打开，设置bFileIsOpen := true然后，只要您需要知道文件是否打开，只需测试此变量;例如：if (bFileIsOpen) then Close(datafile);

Answer 5

约瑟夫的答案完美无缺 - 我调用了函数filenotopen并改变了行

Result := (HFileRes = INVALID_HANDLE_VALUE);

到

Result := NOT (HFileRes = INVALID_HANDLE_VALUE);

我也删除了该行＆＃39;如果没有（结果）则开始＆＃39; （以及＆＃39;结束＆＃39;）以便它总是关闭句柄或后续分配和读取给出错误

我现在称之为

if filenotopen(filename) then 
  begin
    assignfile(f,filename);
    reset(f)
    etc;
  end
else
  message('file open by a different program')

检查文件在Delphi中打开

5 个答案: