如何高效将TCustomFrame与记录批量存储进Delphi列表？

本文共计329个文字，预计阅读时间需要2分钟。

我正在使用TObjectList和TCustomFrame存储TCustomFrames。现在我想在同一列表中存储有关TCustomFrame的更多信息。记录会很有帮助。您希望将哪些Delphi类存储在同一个列表中的TCustomFrame和记录？

我正在使用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.