Delphi: конструктор и деструктор

← →
Shaman_Naydak (2002-03-06 13:01) [1]

Кстати, хочу кинуть абстрактный пример, иллюстрирующий мою мысль, да и правила создания/уничтожения объектов.
Заранее прошу прощения за возможные описки. код набирался прямо в броузере.

type
TTestObj = class
private
FStrings: TStringList;
public
constructor CreateParam(Param: string);
procedure AfterConstruction; override;
procedure BeforeDestruction; override;
end;

constructor TTestObj.CreateParam(Param: string);
begin
FStrings:=TStrinList.Create;
FStrings.Add(Param);
end;

procedure TTestObj.AfterConstruction;
begin
// Проверка на то, что объект можно создавать.
// Если нельзя - вызвать исключение
if not SkyIsBlue then
Abort;

inherited;
if FStrings = nil then
FStrings:=TStringList.Create;
end;

procedure TTestObj.BeforeDestruction;
begin
// Проверка на то, что объект можно уничтожать.
// Если нельзя - вызвать исключение
if SkyIsBlue then
Abort;

inherited;
FStrings.Free;
end;

Delphi: конструктор и деструктор Найти похожие ветки