delphi - 如何检测tfilestream是否已释放？

Question

有没有办法查看是否正在使用tfile流实例？
例如，如果我声明tfilestream类型的FS，则向其写入缓冲区，然后
最终使用tfilestream.free释放流，我可以检查一下吗
喜欢：

if 
tfilestream.NotActive
then
 //code
if tfilestream.beingused then
 //code
if tfilestream.free = true then
    //code

主动和被使用的方法不存在，我们也不能测试tfilestream.free = true只是为了弥补这一点，以使我知道我要问的是什么

Answer 1

您无法以您期望的方式做到这一点。但是你可以用FreeAndNil()

var
  FS : TFileStream;
begin
  FS := TFileStream.Create(...);
  try
   // Do Work with TFileSTream 
  finally 
   FreeAndNil(FS);
  end;

  // For some reason you need to check FS is freed.

  if not Assigned(FS) then
  begin
   // Stream was freed.
  end;
end;