delphi - 如何从文本文件变量获取完整的文件名？

Question

以下代码写入名为test.txt的文件（在这种情况下，在当前目录中）

var
    F : TextFile;
begin
    AssignFile(F, 'test.txt');
    try
        Rewrite(F);
        //...
    finally
        CloseFile(F);
    end;
end;

如何从 F : TextFile变量中提取完整的文件名？

Answer 1

解决此问题有两个步骤：


获取TextFile对象后面的文件句柄。
从该句柄获取文件名。


对于步骤1，您使用

var
  FileHandle: THandle;
....
FileHandle := TTextRec(F).Handle;

对于步骤2，该过程在MSDN上概述： Obtaining a File Name From a File Handle。