TStorage

type TStorage = class(TInterfacedObj)

protected

  procedure SetName(); virtual;

  function GetChild();

  procedure SetParent(); virtual;

  procedure ReindexChilds();

  procedure CheckChildIndex(); virtual;

  function RemoveChildFromList(); virtual;

  procedure BeginRead; virtual;

  function ReadProperty(); virtual;

  procedure EndRead; virtual;

  procedure WriteProperties; virtual;

  function CheckSkipWriteProperty(); virtual;

  procedure WriteStorage;

  procedure WriteEnumProp();

  procedure WriteIntProp();

  procedure WriteCardinalProp();

  procedure WriteBoolProp();

  procedure WriteColorProp();

  procedure WriteDoubleProp();

  procedure WritePointDProp();

  procedure WriteRectDProp();

  procedure WritePathDProp();

  procedure WriteLocalStorageProp();

  procedure WriteStrProp();

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure Free;

  procedure ClearChildren; virtual;

  function AddChild(); virtual;

  function InsertChild(); virtual;

  procedure DeleteChild(); virtual;

  function IsOwnedBy();

  function FindChildByName();

  function FindChildByID();

  function FindChildByClass();

  property StorageManager: TStorageManager; [r]

  property IgnoreOnWrite: Boolean; [w]

  property StorageState: TStorageState; [rw]

  property Child []: TStorage; [r]

  property Childs: TList; [r]

  property ChildCount: Integer; [r]

  property HasChildren: Boolean; [r]

  property Index: Integer; [r]

  property Parent: TStorage; [rw]

published

  property Name: string; [rw]

  property Id: Integer; [rw]

end;

TStorage

TInterfacedObj

TObject,IInterface