Как можно работать с объектами не заботясь об их разрушении?

Delphi , Технологии , Объектно-ориентированное программирование

Вначале сделаем интерфейс для нашего объекта:

Code:

type

IAutoClean = interface

['{61D9CBA6-B1CE-4297-9319-66CC86CE6922}']

end;

TAutoClean = class(TInterfacedObject, IAutoClean)

private

FObj: TObject;

public

constructor Create(AObj: TObject);

destructor Destroy; override;

end;

implementation

constructor TAutoClean.Create(AObj: TObject);

begin

FObj := AObj;

end;

destructor TAutoClean.Destroy;

begin

FreeAndNil(FObj);

inherited;

end;

А теперь будем использовать его вместо объекта:

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

a: IAutoClean;

//must declare as local variable, so when this procedure finished, it's out of scope

o: TOpenDialog; //any component

begin

o := TOpenDialog.Create(self);

a := TAutoClean.Create(o);

if o.Execute then

ShowMessage(o.FileName);

end;

Взято с Delphi Knowledge Base: http://www.baltsoft.com/

В статье описывается создание интерфейса IAutoClean и класса TAutoClean, позволяющего безопасно использовать объекты в приложении без заботы о их разрушении.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Объектно-ориентированное программирование ::

Время компиляции файла: 2024-12-22 20:14:06
2025-01-28 05:52:05/0.0032079219818115/0