当前位置 : 主页 > 编程语言 > delphi >

delphi:如何将TCustomFrame和记录存储在一个列表中

来源:互联网 收集:自由互联 发布时间:2021-06-23
我正在使用TObjectList TCustomFrame存储TCustomFrames.现在我想在同一列表中存储有关TCustomFrame的更多信息.记录会很好. 您希望将哪个delphi类存储在同一列表中的TCustomFrame和记录? TCustomFrames和记
我正在使用TObjectList< TCustomFrame>存储TCustomFrames.现在我想在同一列表中存储有关TCustomFrame的更多信息.记录会很好.

您希望将哪个delphi类存储在同一列表中的TCustomFrame和记录?

TCustomFrames和记录将在运行时添加.

创建一条记录来保存所有信息:

type 
  TFrameInfo = record
    Frame: TCustomFrame;
    Foo: string;
    Bar: Integer;
  end;

在TList< TFrameInfo>中保留它.

我注意到你使用的是TObjectList< T>而不是TList< T>.这样做的唯一好处是,如果您将OwnsObjects设置为True.但这似乎不太可能,因为我怀疑列表是否真正负责GUI对象的生命周期.作为未来的注释,如果您发现自己使用TObjectList< T>如果将OwnsObjects设置为False,那么您也可以切换到TList< T>.

现在,如果您确实需要列表来控制生命周期,那么您最好使用类而不是TFrameInfo的记录.

type 
  TFrameInfo = class
  private
    FFrame: TCustomFrame;
    FFoo: string;
    FBar: Integer;
  public
    constructor Create(AFrame: TCustomFrame; AFoo: string; ABar: Integer);
    destructor Destroy; override;
    property Frame: TCustomFrame read FFrame;
    // etc.
  end;

  constructor TFrameInfo.Create(AFrame: TCustomFrame; AFoo: string; ABar: Integer);
  begin
    inherited Create;
    FFrame := AFrame;
    // etc.
  end;

  destructor TFrameInfo.Destroy; 
  begin
    FFrame.Free;
    inherited;
  end;

然后将其保存在TObjectList< TFrameInfo>中.将OwnsObjects设置为True.

网友评论