Delphi World - Создание самоуничтожающегося объекта
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Создание самоуничтожающегося объекта

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

type
   ISelfDestroy = interface;
   //forget about GUID, if you are not using COM 

  TSelfDestroy = class(TInterfacedObject, ISelfDestroy)
   private
     FObject: TObject;
   public
     constructor Create(AObject: TObject);
     destructor Destroy; override;
   end;


 implementation


 constructor TSelfDestroy.Create(AObject: TObject);
 begin
   FObject := AObject;
 end;

 destructor TSelfDestroy.Destroy;
 begin
   FreeAndNil(FObject);
   inherited;
 end;


 // So when you use, just do like this... 

procedure TForm1.Button1Click(Sender: TObject);
 var
   MyObject: TMyObject;
   SelfDestroy: TSelfDestroy;
   begin
   MyObject    := TMyObject.Create;
   SelfDestroy := TSelfDestroy.Create(MyObject);
   // The MyObject will free automatically as soon as TSelfDestroy 
  // goes out of scope. 
  // Carry on your code here... 
end;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования