TCustomPropertyStorage

type TCustomPropertyStorage = class(TComponent)

protected

  function GetRoot; virtual;

  function RootSection; virtual;

  procedure SaveProperties; virtual;

  procedure RestoreProperties; virtual;

  procedure GetPropertyList(); virtual; abstract;

  procedure FinishPropertyList(); virtual;

  function DoReadInteger(); virtual;

  function DoReadString(); virtual; abstract;

  procedure DoWriteString(); virtual; abstract;

  procedure DoWriteInteger(); virtual;

  procedure DoEraseSections(); virtual; abstract;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Save; virtual;

  procedure Restore; virtual;

  procedure StorageNeeded(); virtual;

  procedure FreeStorage; virtual;

  function ReadBoolean();

  function ReadString();

  function ReadInteger();

  procedure ReadRect();

  procedure ReadStrings();

  procedure WriteString();

  procedure WriteInteger();

  procedure WriteBoolean();

  procedure WriteRect();

  procedure WriteStrings();

  procedure EraseSections;

  property StoredValue []: TStoredType; [rw]

  property Root: TComponent; [r]

  property Active: Boolean; [rw]

  property StoredValues: TStoredValues; [rw]

  property OnSavingProperties: TNotifyEvent; [rw]

  property OnSaveProperties: TNotifyEvent; [rw]

  property OnRestoringProperties: TNotifyEvent; [rw]

  property OnRestoreProperties: TNotifyEvent; [rw]

  property OnSaveException: TPropertyStorageSaveExceptionEvent; [rw]

end;

TCustomPropertyStorage

TObject