Class Zone_Options (unit Zone_settings)

Inherits from

TObject

Constructors


constructor Create;

///////////////////////////////////////////////////////////////////////////// Zone_Options /////////////////////////////////////////////////////////////////////////////


Functions

destructor destroy;


procedure read_ini;


procedure write_ini;

if not FileExists(INIFile) then begin error_flag := error_flag + [INI_file_not_found]; error_string := error_string + 'Zonerings couldn''t find the INI file '+INIfile+eol; end;

Properties

Events

Variables

Cycle_tagged : boolean;


Cycling_mode : boolean;


error_flag : set of Zone_error;

we'll use a global error flag

error_string : String;


Max_time : Integer;


Min_time : Integer;


Prompt_change : boolean;


Prompt_force : boolean;


settings_name : String;


Startup_cycling : boolean;


Zone_Directory : String;



Constructors


constructor Create;

///////////////////////////////////////////////////////////////////////////// Zone_Options /////////////////////////////////////////////////////////////////////////////


Functions


destructor destroy;


procedure read_ini;


procedure write_ini;

if not FileExists(INIFile) then begin error_flag := error_flag + [INI_file_not_found]; error_string := error_string + 'Zonerings couldn''t find the INI file '+INIfile+eol; end;


Properties


Events


Variables


Cycle_tagged : boolean;


Cycling_mode : boolean;


error_flag : set of Zone_error;

we'll use a global error flag


error_string : String;


Max_time : Integer;


Min_time : Integer;


Prompt_change : boolean;


Prompt_force : boolean;


settings_name : String;


Startup_cycling : boolean;


Zone_Directory : String;