Class Zone_Options (unit Zone_settings) |
Inherits from
TObject
constructor Create;
- ///////////////////////////////////////////////////////////////////////////// Zone_Options /////////////////////////////////////////////////////////////////////////////
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;
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;
constructor Create;
///////////////////////////////////////////////////////////////////////////// Zone_Options /////////////////////////////////////////////////////////////////////////////
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;
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;