[tyomitch]

Вновь нужна помощь.

В функции есть локальная переменная-объект. Как кошернее всего её убить перед выходом?
Сейчас написал:

Код: Выделить всё

procedure foo; var bar: TMyObject; begin bar := nil; try
//
// здесь страница кода ;-)
//
finally if Assigned(bar) then bar.Destroy end end;


Но мне кажется, что это безбожно криво, и должен быть способ лучше.

[GSerg]

Components on a form are created and destroyed automatically. However, if you write your own code to instantiate objects, you are responsible for disposing of them as well. Every object inherits a Destroy method (called a destructor) from TObject. To destroy an object, however, you should call the Free method (also inherited from TObject), because Free checks for a nil reference before calling Destroy. For example,

Код: Выделить всё

Employee.Free;

destroys the Employee object and deallocates its memory.

[tyomitch]

А я хочу, чтобы как в C++ и других нормальных языках: при выходе из функции все её локальные объекты сами убивались.

[GSerg]

Дык это.
Ты объект создаёшь как?

[tyomitch]

Конструктором, вестимо. А как ещё можно?

[GSerg]

Ну т.е. :=Object.Create ты делаешь?

[tyomitch]

:=TMyObject.Create делаю. (А разве как-то ещё можно?)

[GSerg]

Вот... а раз делаешь, то разве не логично делать и free?..

[tyomitch]

Не логично, потому что привык, что за мной автоматически убирают мусор

Зачем-то ведь делфи обрамляет каждую функцию SEH-кадром. Что она в нём делает? я раньше думал, что как раз прибивает объекты; а оказалось, нет

[tyomitch]

пишут:

it's a typical requirement of C- and VB-programmers to Delphi, that garbage collection should happen automatically. But why should it? A local object-variable doesn't always have to hold a seperate instance.

Блин

Рядом пишут, что эта фича у них в вишлисте со времён 4-й версии.

[GSerg]

Гы гы, а больше дельфей не будет

[tyomitch]

Из хелпа к моим шестым делфям:

Interface references are managed through reference-counting, which depends on the _AddRef and _Release methods inherited from IInterface. When an object is referenced only through interfaces, there is no need to destroy it manually; the object is automatically destroyed when the last reference to it goes out of scope.

Проверяю: ничего подобного.

Код: Выделить всё

program Project1;

{$APPTYPE CONSOLE}

type
  IPoorLittleObject = interface
    procedure Bleep;
  end;

  TPoorLittleObject = class(TInterfacedObject,IPoorLittleObject)
    procedure AfterConstruction; override;
    procedure BeforeDestruction; override;
    procedure Bleep;
  end;
procedure TPoorLittleObject.AfterConstruction;
begin writeln('PoorLittleObject.AfterConstruction') end;
procedure TPoorLittleObject.BeforeDestruction;
begin writeln('PoorLittleObject.BeforeDestruction') end;
procedure TPoorLittleObject.Bleep;
begin writeln('PoorLittleObject.Bleep') end;

procedure TormentObject; var v: IPoorLittleObject;
begin v := TPoorLittleObject.Create; v.Bleep end;

begin
  try TormentObject except end;
end.


WTF?

[GSerg]

Дельфей нет проверить...
Дык IInterface - он же из automation там, нет?

[tyomitch]

Из хелпа к моим шестым делфям:

...

Проверяю: ничего подобного.

...

WTF?

Оказалось, что нехватало inherited в AfterConstruction; если его добавить, код работает.
Блин.

[tyomitch]

Нет, всё-таки подсчёт ссылок -- великая вещь.
Сегодня весь день дебажил прогу, в которой уничтожались объекты, на которые оставались ссылки в локальных переменных процедур.
В итоге перед каждым обращением к объекту нужно как-то узнавать, он ещё живой или уже нет.
Самое милое -- это когда уничтожают объект, у которого есть выполняющиеся методы. В итоге self в них указывает на мусор, и все (явные или неявные) обращения к собственным полям приводят к ошибке в противоположном конце проги, где будет использоваться прочитанный оттуда мусор.
COM -- это рулез

[keks-n]

.NET - рулез. Сборщик прибьёт только то что нужно.

[tyomitch]

.net -- это другая крайность: когда объект уже сто лет никому не нужен, и всё равно никак не помрёт.