Delphi中属性返回自销毁对象是否可行？子属性构建需求探讨

我希望构建子属性，让属性返回对象，以下是相关Delphi代码实现：

TRoom=class (TObject)    
public
 Constructor create(AParent:TFlat;ID:String)
 property Enabled:boolean read GetEnabled write SetEnabled;
end

TFlat=class (TObject)
public
 property Room[Roomname:String]:TRoom read GetRoom;
end

procedure TRoom.SetEnabled(Value:Boolean);
begin
 //执行操作
 Free; //自行销毁
end;

function TRoom.GetEnabled:Boolean;
begin
 Result:=TRUE; //业务逻辑返回值
 Free; //自行销毁避免内存泄漏
end;

function TFlat.GetRoom(Roomname:String):TRoom;    
begin
 Result:=TRoom.Create(Self,Roomname); //创建并返回Room对象
end

调用示例如下：

Flat:=TFlat.Create;
Flat.Room['Bedroom'].Enabled:=TRUE;

请问这种实现方式是否可行？

补充说明1：Getter和Setter方法会与WebAPI交互执行实际操作，对象本身无需存储任何数据。
补充说明2：我的目标是能够编写如下风格的代码：

Room['Bedroom'].Temperatur:=23;
If Room['Office'].Enabled then Room['Office'].Lights.Scene='gaming';

结论：这种实现方式不可行，存在严重的内存安全问题和逻辑缺陷 #

核心问题分析：

1. 悬空指针与访问违规
   在TRoom的GetEnabled和SetEnabled中直接调用Free销毁自身，会导致调用代码中的对象引用变成悬空指针。比如执行Flat.Room['Bedroom'].Enabled:=TRUE;后，这个TRoom实例已经被销毁，若后续代码访问该引用（比如链式调用中的Room['Office'].Lights），会直接触发内存访问异常，导致程序崩溃。

2. 重复创建对象导致逻辑混乱
   TFlat.GetRoom每次被调用都会创建新的TRoom实例，这意味着Room['Office'].Enabled和Room['Office'].Lights指向的是两个完全独立的对象——虽然逻辑上对应同一个房间，但实际是两个无关联的实例，不仅造成不必要的内存开销，还可能因多次API调用引发逻辑不一致。

正确实现思路与示例代码 #

要实现你想要的链式调用风格，同时保证内存安全和逻辑合理，建议做以下调整：

• 由TFlat统一管理TRoom实例的生命周期，避免在子对象内部自行销毁
• 缓存已创建的TRoom实例，确保同一个房间名返回同一个对象
• 子对象仅作为WebAPI的代理，Getter/Setter只处理API交互，不操作自身生命周期

修改后的代码示例：

TRoom = class(TObject)
private
  FParent: TFlat;
  FRoomName: string;
  FLights: TLights;
  function GetLights: TLights;
public
  constructor Create(AParent: TFlat; const ARoomName: string);
  destructor Destroy; override;
  property Enabled: Boolean read GetEnabled write SetEnabled;
  property Temperature: Integer read GetTemperature write SetTemperature;
  property Lights: TLights read GetLights;
end;

TLights = class(TObject)
private
  FRoom: TRoom;
public
  constructor Create(ARoom: TRoom);
  property Scene: string read GetScene write SetScene;
end;

TFlat = class(TObject)
private
  FRooms: TDictionary<string, TRoom>;
  function GetRoom(const RoomName: string): TRoom;
public
  constructor Create;
  destructor Destroy; override;
  property Room[const RoomName: string]: TRoom read GetRoom;
end;

{ TFlat }
constructor TFlat.Create;
begin
  inherited;
  FRooms := TDictionary<string, TRoom>.Create;
end;

destructor TFlat.Destroy;
var
  Room: TRoom;
begin
  // 统一销毁所有缓存的房间对象
  for Room in FRooms.Values do
    Room.Free;
  FRooms.Free;
  inherited;
end;

function TFlat.GetRoom(const RoomName: string): TRoom;
begin
  // 优先从缓存获取，不存在则创建并缓存
  if not FRooms.TryGetValue(RoomName, Result) then
  begin
    Result := TRoom.Create(Self, RoomName);
    FRooms.Add(RoomName, Result);
  end;
end;

{ TRoom }
constructor TRoom.Create(AParent: TFlat; const ARoomName: string);
begin
  inherited Create;
  FParent := AParent;
  FRoomName := ARoomName;
end;

destructor TRoom.Destroy;
begin
  // 销毁子对象
  FLights.Free;
  inherited;
end;

function TRoom.GetEnabled: Boolean;
begin
  // 调用WebAPI获取房间启用状态，替换为实际逻辑
  Result := True;
end;

procedure TRoom.SetEnabled(Value: Boolean);
begin
  // 调用WebAPI设置房间启用状态，替换为实际逻辑
end;

function TRoom.GetTemperature: Integer;
begin
  // 调用WebAPI获取温度
  Result := 22;
end;

procedure TRoom.SetTemperature(Value: Integer);
begin
  // 调用WebAPI设置温度
end;

function TRoom.GetLights: TLights;
begin
  if not Assigned(FLights) then
    FLights := TLights.Create(Self);
  Result := FLights;
end;

{ TLights }
constructor TLights.Create(ARoom: TRoom);
begin
  inherited Create;
  FRoom := ARoom;
end;

function TLights.GetScene: string;
begin
  // 调用WebAPI获取灯光场景
  Result := 'default';
end;

procedure TLights.SetScene(Value: string);
begin
  // 调用WebAPI设置灯光场景
end;

调整后的优势：

• 同一个房间名始终返回同一个TRoom实例，链式调用逻辑一致
• 所有对象由TFlat统一销毁，彻底避免悬空指针和内存泄漏
• 完全支持你期望的Room['Bedroom'].Temperature:=23;这类代码风格
• 子对象按需创建，减少不必要的资源开销

内容的提问来源于stack exchange，提问作者Wolfgang Bures