TplVMatrix

type TplVMatrix = class(TplContainer)

protected

  FRows: Cardinal;

  FCols: Cardinal;

  FCacheRows: Integer;

  FElSize: Integer;

  vmRowSize: LongInt;

  vmCacheCnt: Integer;

  vmCacheTime: LongInt;

  vmCache: PplCacheArray;

  vmDataF: Integer;

  procedure ForEachUntypedVar(); override;

  procedure GetArraySizes(); override;

  procedure SetArraySizes(); override;

  function StoresUntypedVars; override;

  procedure vmSetCacheRows();

  procedure vmAllocateCache;

  procedure vmDeallocateCache;

  procedure vmInvalidateCache;

  procedure vmFlushCacheNode();

  function vmIncCacheTime;

  function vmSearchCache();

  function vmGetRowData();

  procedure vmWriteRow();

  procedure vmSetRows();

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure FlushCache;

  function HeaderSize; virtual;

  procedure WriteHeader; virtual;

  procedure ReadHeader; virtual;

  procedure Assign(); override;

  procedure Clear; override;

  procedure Put();

  procedure Get();

  procedure PutRow();

  procedure GetRow();

  property Rows: Cardinal; [rw]

  property Cols: Cardinal; [r]

  property ElementSize: Integer; [r]

  property CacheRows: Integer; [rw]

end;

TplVMatrix

TplContainer

TObject