TConfigStorage

type TConfigStorage = class

protected

  function GetFullPathValue();

  procedure SetFullPathValue();

  procedure SetDeleteFullPathValue();

  procedure DeleteFullPath(); virtual; abstract;

  procedure DeleteFullPathValue(); virtual; abstract;

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure Clear; virtual; abstract;

  function GetValue();

  procedure SetValue();

  procedure SetDeleteValue();

  procedure DeletePath();

  procedure DeleteValue();

  property CurrentBasePath: String; [r]

  function ExtendPath();

  procedure AppendBasePath();

  procedure UndoAppendBasePath;

  procedure WriteToDisk; virtual; abstract;

  function GetFilename; virtual; abstract;

end;

TConfigStorage

TObject