TXMLConfig

type TXMLConfig = class(TComponent)

protected

Type

  TNodeCache = record

  Node: TDOMNode;

  ChildrenValid: Boolean;

  Children: array of TDOMNode;

end;

  doc: TXMLDocument;

  FModified: Boolean;

  fDoNotLoadFromFile: Boolean;

  fAutoLoadFromSource: string;

  fPathCache: string;

  fPathNodeCache: ;

  procedure Loaded; override;

  function ExtendedToStr();

  function StrToExtended();

  procedure ReadXMLFile(); virtual;

  procedure WriteXMLFile(); virtual;

  procedure FreeDoc; virtual;

  procedure SetPathNodeCache();

  function GetCachedPathNode();

  procedure InvalidateCacheTilEnd();

  function InternalFindNode();

  procedure InternalCleanNode();

  function FindChildNode();

public

  constructor Create();

  constructor CreateClean();

  constructor CreateWithSource();

  destructor Destroy; override;

  procedure Clear;

  procedure Flush;

  procedure ReadFromStream();

  procedure WriteToStream();

  function GetValue();

  function GetExtendedValue();

  procedure SetValue();

  procedure SetDeleteValue();

  procedure SetExtendedValue();

  procedure SetDeleteExtendedValue();

  procedure DeletePath();

  procedure DeleteValue();

  function FindNode();

  function HasPath();

  function HasChildPaths();

  property Modified: Boolean; [rw]

  procedure InvalidatePathCache;

published

  property Filename: string; [rw]

  property Document: TXMLDocument; [r]

  property ReadFlags: TXMLReaderFlags; [rw]

  property WriteFlags: TXMLWriterFlags; [rw]

end;

TXMLConfig

TComponent,IUnknown,IInterfaceComponentReference

TPersistent,IFPObserved

TObject