TCache

type TCache = class

protected

  FSlotCount: Integer;

  FSlots: PCacheSlotArray;

  FMRUSlot: PCacheSlot;

  FLRUSlot: PCacheSlot;

public

  constructor Create();

Create a new cache class.

  destructor Destroy; override;

Free the TCache class from memory

  function Add();

Add a data element to the list.

  function AddNew();

Add a new item to the list.

  function FindSlot();

Find data pointer in the list

  function IndexOf();

Return index of a data pointer in the list.

  procedure Remove();

Remove a data item from the list.

  property Data: Pointer; [rw]

Indexed access to data items

  property MRUSlot: PCacheSlot; [rw]

Most recent item slot.

  property LRUSlot: PCacheSlot; [r]

Last used item

  property SlotCount: Integer; [rw]

Number of slots in the list

  property Slots: PCacheSlot; [r]

Indexed array to the slots

  property OnIsDataEqual: TOnIsDataEqual; [rw]

Event to compare 2 items.

  property OnFreeSlot: TOnFreeSlot; [rw]

Event called when a slot is freed

end;

TCache

Cache class

TObject