TplContainer

type TplContainer = class(TPersistent)

protected

  FCompare: TCompareFunc;

  FDisposeData: TDisposeDataProc;

  FLoadData: TLoadDataFunc;

  FStoreData: TploreDataProc;

  FOnCompare: TplCompareEvent;

  FOnDisposeData: TplDisposeDataEvent;

  FOnLoadData: TplLoadDataEvent;

  FOnStoreData: TplStoreDataEvent;

  procedure SetCompare();

  procedure SetDisposeData();

  procedure SetLoadData();

  procedure SetStoreData();

  conNodeClass: TplNodeClass;

  conNodeProt: Integer;

  FCount: LongInt;

  function AssignPointers();

  function AssignUntypedVars();

  procedure ForEachPointer(); virtual;

  procedure ForEachUntypedVar(); virtual;

  procedure GetArraySizes(); virtual;

  procedure SetArraySizes(); virtual;

  function StoresPointers; virtual;

  function StoresUntypedVars; virtual;

  procedure IncNodeProtection;

  procedure DecNodeProtection;

  procedure EnterCS;

  procedure LeaveCS;

public

  constructor CreateContainer();

  destructor Destroy; override;

  procedure Clear; virtual; abstract;

  procedure DisposeNodeData();

  function DoCompare(); virtual;

  procedure DoDisposeData(); virtual;

  function DoLoadData(); virtual;

  procedure DoStoreData(); virtual;

  procedure LoadFromFile(); dynamic;

  procedure LoadFromStream(); dynamic; abstract;

  procedure StoreToFile(); dynamic;

  procedure StoreToStream(); dynamic; abstract;

  property Count: LongInt; [r]

  property Compare: TCompareFunc; [rw]

  property DisposeData: TDisposeDataProc; [rw]

  property LoadData: TLoadDataFunc; [rw]

  property StoreData: TploreDataProc; [rw]

  property OnCompare: TplCompareEvent; [rw]

  property OnDisposeData: TplDisposeDataEvent; [rw]

  property OnLoadData: TplLoadDataEvent; [rw]

  property OnStoreData: TplStoreDataEvent; [rw]

end;

TplContainer

TObject