如何检测tfilestream是否已被释放?

时间:2010-07-27 16:48:21

标签: delphi filestream tfilestream

有没有办法查看是否正在使用tfile流的实例? 例如,如果我声明类型为tfilestream的FS,则向其写入缓冲区 最后使用tfilestream.free释放流我可以检查一下 像:

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

有效正在使用方法不存在真实存在也无法测试 tfilestream.free = true 这样做只是为了明白什么我想问一下

1 个答案:

答案 0 :(得分:16)

你不能按照你期望的方式去做。但你和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;