Delphi泛型应用示例之二：通用数据池

最新推荐文章于 2022-07-20 10:27:52 发布

BambooCaep

最新推荐文章于 2022-07-20 10:27:52 发布

阅读量1k

点赞数

分类专栏： Delphi 文章标签： delphi 泛型

本文链接：https://blog.youkuaiyun.com/bamboocaep/article/details/43965563

版权

本文介绍了一个使用Delphi泛型实现的通用数据池组件，该组件能够缓存并管理对象实例，包括对象的获取、归还、清空和计数功能。通过接口实现，适用于不同类型的对象。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

精简版，不解释。

unit BambooInstanceCache;

interface

uses
System.Generics.Collections;

type

TInterface_BambooInstanceCache<T> = interface
    function Dequeue: T;
    function IdleCount: Integer;
    procedure ClearIdle;
    procedure Enqueue(const aInstance: T);
end;

TBambooInstanceCache<T> = class(TInterfacedObject, TInterface_BambooInstanceCache<T>)
public type
    TBambooRefProc_Var = reference to procedure(var aInstance: T);
strict private
    FIdle: TList<T>;
    FProcCreateInstance: TBambooRefProc_Var;
    FProcDestroyInstance: TBambooRefProc_Var;
private
    function Dequeue: T;
    function IdleCount: Integer;
    procedure ClearIdle;
    procedure Enqueue(const aInstance: T);
public
    constructor Create(const aProc