как проверить создан ли TFileStream;

← →
bbk (2008-11-21 01:27) [0]

var
tmpStream : TFileStream;
begin

tmpStream := TFileStream.Create("d:\1.dat", fmCreate);
tmpStream.free;

...
if Assigned(tmpStream) then tmpStream.free; // Вылетает except ошибка
end;

В чем и вопрос, как правильно проверить, так как после free метода файлового потока Assigned(tmpStream) возвращает все равно истину.

← →
{RASkov} © (2008-11-21 01:29) [1]

> [0] bbk (21.11.08 01:27)

После Free пременную сбрось в нил...

← →
bbk (2008-11-21 01:32) [2]

что ещё не понятно, после

tmpStream.free;
ShowMessage(IntToStr(tmpStream.Handle));

хендл все равно остается.
с destroy такая же хрень.
как блин его удалить? (:

← →
{RASkov} © (2008-11-21 01:33) [3]

> После Free пременную сбрось в нил...

:) или в любую близлежащую реку...) т.е.:
tmpStream.free;
tmpStream:=nil;
.....
if Assigned(tmpStream) then

See also: FreeAndNil()

← →
bbk (2008-11-21 01:33) [4]

{RASkov} спасибо, что-то не допер был.
интересно девки пляшут...

← →
{RASkov} © (2008-11-21 01:34) [5]

> хендл все равно остается.

"битый"

← →
bbk (2008-11-21 01:37) [6]

а вообще если у меня есть процедурка нужно в конце всегда обнулять созданный объект или free будет достаточно?

← →
Германн © (2008-11-21 02:01) [7]

> bbk (21.11.08 01:37) [6]
>
> а вообще если у меня есть процедурка нужно в конце всегда
> обнулять созданный объект или free будет достаточно?
>

Как правило достаточно. Всё остальное "от лукаваго"! :)

← →
Anatoly Podgoretsky © (2008-11-21 08:56) [8]

> bbk (21.11.2008 1:27:00) [0]

Очень просто, ничего проверять не надо, не засоряй себе мозги.

← →
Правильный$Вася (2008-11-21 12:26) [9]

> а вообще если у меня есть процедурка нужно в конце всегда
> обнулять созданный объект или free будет достаточно?

по выходе из процедурки у тебя эти переменные уже недоступны

> [9] Правильный$Вася (21.11.08 12:26)

Но память-то нужно отдать :) Поэтому [7]...

← →
Правильный$Вася (2008-11-21 13:01) [11]

> Но память-то нужно отдать

естественно

> [11] Правильный$Вася (21.11.08 13:01)

сорри... я не верно понял [9](

как проверить создан ли TFileStream; Найти похожие ветки