Освобождать или освобождено?

← →
1008 © (2004-06-07 11:15) [0]

Хочу попользовать M$ Word в качестве генератора отчётов для чего делаю следующее:
var
WordApp:TWordApplication;
WordDoc:TWordDocument;
...
begin
try
WordApp:=TWordApplication.Create(ReportForm);
WordDoc:=TWordDocument.Create(ReportForm);
except
messagebox(0,"M$ Word not found!","Error!",mb_ok);
Close;
end;

Есть ли необходимость, в случае возникновения ошибки, осовбождать переменные WordApp и WordDoc? (WordApp.Free; WordDoc.Free;) Или же ресурсы выделенные под эти переменные будут освобождены автоматически?

← →
Skier © (2004-06-07 11:21) [1]

> Или же ресурсы выделенные под эти переменные будут освобождены
> автоматически?

Не будут.

← →
1008 © (2004-06-07 11:25) [2]

Skier © (07.06.04 11:21) [1]

То есть мне надо делать следующим образом:

except
WordApp.Free;
WordDoc.Free;
...
end;

?

← →
KSergey © (2004-06-07 11:28) [3]

Вы создали обычный дельфийский объект.
Будьте любезны его уничтожить.

Правда, тут есть нюанс: раз указан Owner - то с разрушением формы эти объекты все же будут уничтожены. Но по хорошему - раз уж сам создал - лучше, наверное, самому и уничтожить.

Спасибо откликнувшимся.

Да, и к стати: в [2] 1008 © (07.06.04 11:25) - не except.
Ведь в случае отсутствия исключений уничтожить объект все равно надо, верно? ;)

Освобождать или освобождено? Найти похожие ветки