Создание самоуничтожающегося объектаDelphi , Компоненты и Классы , Создание компонентСоздание самоуничтожающегося объекта
Оформил: DeeCo 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 и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Создание компонент ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |