TMemoryStream проверка на создание

[Lokos]

Здравствуйте.
Как можно проверить была ли инициализирована переменная типа TMemoryStream.

потому что при выполнении кода

имя_переменной.free

вылетает ошибка. Думаю из за того что переменная не создавалась
таким образом

имя_переменной :=TMemoryStream.Create;

[mihali4]

Попробуйте вот так (набросал рабочий примерчик):

procedure TForm1.Button1Click(Sender: TObject);
var ms: TMemoryStream;
begin
ms:=nil;
ms:=TMemoryStream.Create;
if ms<>nil then
begin
Image1.Picture.Graphic.SaveToStream(ms);
ms.Free;
end;
end;

З.Ы.

Сообщение от Lokos

ms:=TMemoryStream //не выполняется

это можно как то определить прежде чем делать

ms.free

или придется делать какой то флаг для определения.

Слов нет, одни эмоции... Похоже на разговор глухого со слепым...

[Lokos]

не происходит процедура создания. То есть действие

ms:=TMemoryStream //не выполняется

это можно как то определить прежде чем делать

ms.free

или придется делать какой то флаг для определения.

[_Engine_]

if assigned(ms) then ms.Free;

[Пепел Феникса]

если Free выбил ошибку то значит переменка nil не равна.

_Engine_, метод Free имеет код

if assigned(Self) then Destroy;

так что масло маслянное

вообще насколько я помню, конструкторы обычно в случае чего исключения кидают.

[Serge_Bliznykov]

или придется делать какой то флаг для определения.

да не надо никаких флагов.
Вам же тут в теме, начиная с примера mihali4
пытаются втолковать, что переменная типа TMemoryStream должна быть проиницилизированна!
например, так:

YourTMemStr := nil;

ОБЯЗАТЕЛЬНО!
Хотите, делайте это на FormCreate, хотите, там, где объявляете переменную,
НО ИНИЦИЛИЗИРОВАТЬ ЕЁ НАДО ОБЯЗАТЕЛЬНО!

p.s. вместо метода Free я бы рекомендовал использовать процедуру
FreeAndNil(ВашаПеременная)
она не только вызовет метод Free объекта, но и присвоит ему nil