RealICQClient/Config/BaseConfig.pas

unit BaseConfig;

interface

uses
  mybean.core.objects, Classes, SysUtils, TypInfo, superobject, SysUtils, CnCommon;

type
  TBaseConfig = class(TMyBeanInterfacedObject)
  private
    FData: ISuperObject;
    FFileName: string;
    procedure SetData(const Value: ISuperObject);
    procedure SetFileName(const Value: string);
  protected
    function GetUserDir(ALoginName: string): string;
    function GetPublicDir: string;
    function Load: Boolean;
    procedure New;
    property Data: ISuperObject read FData write SetData;
    property FileName: string read FFileName write SetFileName;
  public
    procedure Save;
    procedure RestoreDefault;
    procedure UndoChange;
  end;

implementation

{ TBaseConfig }

function TBaseConfig.GetPublicDir: string;
var
  ADir: string;
begin
  Sli
  ADir := GetEnvironmentVariable('APPDATA') +¡¡
end;

function TBaseConfig.GetUserDir(ALoginName: string): string;
begin

end;

function TBaseConfig.Load: Boolean;
begin

end;

procedure TBaseConfig.New;
begin

end;

procedure TBaseConfig.RestoreDefault;
begin

end;

procedure TBaseConfig.Save;
begin

end;

procedure TBaseConfig.SetData(const Value: ISuperObject);
begin
  FData := Value;
end;

procedure TBaseConfig.SetFileName(const Value: string);
begin
  FFileName := Value;
end;

procedure TBaseConfig.UndoChange;
begin

end;

end.