TXMLConfigStorage

type TXMLConfigStorage = class(TConfigStorage)

protected

  function GetFullPathValue();

  procedure SetFullPathValue();

  procedure SetDeleteFullPathValue();

  procedure DeleteFullPath(); override;

  procedure DeleteFullPathValue(); override;

public

  procedure Clear; override;

  procedure Create();

  destructor Destroy; override;

  property XMLConfig: TXMLConfig; [r]

  property FreeXMLConfig: Boolean; [rw]

  procedure WriteToDisk; override;

  function GetFilename; override;

end;

TXMLConfigStorage

TConfigStorage

TObject