unit SettingsHelper;

 

interface

 

uses Classes, SysUtils, IniFiles;

 

type

 

{ TSettings }

 

TSettings = class

    private

        iSettingsFile: TIniFile;

        function GetBaseCurrency: String;

        procedure SetBaseCurrency(Value: String);

        function GetSettingsFileName: String;

    public

        constructor Create();

        destructor Destroy(); override;

        property BaseCurrency: String read GetBaseCurrency write SetBaseCurrency;

end;

 

const

    cSettingsFileName = 'settings';

    cSettingsFileExt = '.conf';

    szSettings = 'Settings';

 

implementation

 

function TSettings.GetBaseCurrency: String;

begin

    Result := iSettingsFile.ReadString(szSettings, 'BaseCurrency', '');

end;

 

procedure TSettings.SetBaseCurrency(Value: String);

begin

    iSettingsFile.WriteString(szSettings, 'BaseCurrency', Value);

end;

 

function TSettings.GetSettingsFileName: String;

begin

    Result := ExtractFileDir(ParamStr(0)) + '\' + cSettingsFileName + cSettingsFileExt;

end;

 

constructor TSettings.Create();

begin

    inherited;

    iSettingsFile := TIniFile.Create(GetSettingsFileName);

end;

 

destructor TSettings.Destroy();

begin

    iSettingsFile.Free;

    inherited;

end;

 

end.