RealICQClient/Config/ClientConfig.pas

unit ClientConfig;

interface

uses
  BaseConfig, InterfaceConfig;

type
  TClientConfig = class(TBaseConfig, IClientConfig)
  private

  public
    constructor Create(); override;
    function GetFirstLoginConfirm: Boolean;
    function GetGradeSystem: Boolean;
    function GetNewCenterServer: Boolean;
    function GetOtherServersDisable: Boolean;
    function GetSMSName: string;
    function GetUserInfoCheck: Boolean;
    function GetUserInfoController: Boolean;

    property UserInfoController: Boolean read GetUserInfoController;
    property OtherServersDisable: Boolean read GetOtherServersDisable;
    property NewCenterServer: Boolean read GetNewCenterServer;
    property UserInfoCheck: Boolean read GetUserInfoCheck;
    property SMSName: string read GetSMSName;
    property GradeSystem: Boolean read GetGradeSystem;
    property FirstLoginConfirm: Boolean read GetFirstLoginConfirm;
  end;

implementation

{ TClientConfig }

constructor TClientConfig.Create;
begin
  ConfigType := ctPublic;
  FileName := 'client.json';
  inherited;
end;

function TClientConfig.GetFirstLoginConfirm: Boolean;
begin
  Result := Data.B['firstLoginConfirm'];
end;

function TClientConfig.GetGradeSystem: Boolean;
begin
  Result := Data.B['gradeSystem'];
end;

function TClientConfig.GetNewCenterServer: Boolean;
begin
  Result := Data.B['newCenterServer'];
end;

function TClientConfig.GetOtherServersDisable: Boolean;
begin
  Result := Data.B['otherServersDisable'];
end;

function TClientConfig.GetSMSName: string;
begin
  Result := Data.S['smsName'];
end;

function TClientConfig.GetUserInfoCheck: Boolean;
begin
  Result := Data.B['userInfoCheck'];
end;

function TClientConfig.GetUserInfoController: Boolean;
begin
  Result := Data.B['userInfoController'];
end;

end.