Ошибка при загрузке настроек из ini-файла

@Nipel · Регистрация: 14.01.2010

Студворк — интернет-сервис помощи студентам

помогите решить проблему, у меня есть программа заставка которая отображает аналоговые часы, в настройках два чекбокса, включающие отображение цифровых часов и даты, сохраняет все нормально, но при загрузки настроек из файла вылетает ошибка в том случае если чекбокс сохранился как true.
в ошибке написано: Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 0045DC8E in module 'Project1.exe'. Write of address 00000004'. Process stopped. Use Step or Run to continue.
и синим выделает тот чекбокс где должна поставится галочка.
сам код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg;
 
type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Timer1: TTimer;
    Image1: TImage;
    Image2: TImage;
    Label6: TLabel;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Label1: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormHide(Sender: TObject);
  
 
  private
    { Private declarations }
    procedure DeactivateZastavka(var Msg: TMsg; var Handled: boolean);
  public
  procedure DrawClock(t: TTime);
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  crs: TPoint;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(now);  //цифровые часы
DrawClock(now);
Label6.Caption:=DateToStr(now);     //вывод даты
 
end;
 
procedure TForm1.DrawClock(t: TTime);
 
 var
 x,y,i: integer;
 h,m,s,ms: word;
 step,c: double;
begin
 
 step:=2*pi/60;                                  //шаг
 PaintBox1.Canvas.Pen.Color:=clBlack;
 PaintBox1.Canvas.Ellipse(26,25,420,420);       //центр циферблата
 
 DecodeTime(t,h,m,s,ms);
 PaintBox1.Canvas.MoveTo(220,220);            //секундная стрелка серого цвета
 x:=220+Round(196*sin(s*step));
 y:=220-Round(196*cos(s*step));
 PaintBox1.Canvas.Pen.Color:=clGray;
 PaintBox1.Canvas.LineTo(x,y);
 PaintBox1.Canvas.MoveTo(220,220);
 c:=(m*60+s)/60;                 //преобразует секунды в минуты
 x:=220+Round(172*sin(c*step));             //минуты
 y:=220-Round(172*cos(c*step));
 PaintBox1.Canvas.Pen.Width:=2;
 PaintBox1.Canvas.Pen.Color:=clBlack;
 PaintBox1.Canvas.LineTo(x,y);
 PaintBox1.Canvas.Pen.Width:=1;
 PaintBox1.Canvas.MoveTo(220,220);
 if h>12 then h:=h-12;         //если часов больше 12,
                               // то отнимаем 12 чтобы стрелка не уходила куда не надо
 c:=(h*60+m)/60*5;             //преобразует минуты в часы
 x:=220+Round(132*sin(c*step));    //часы
 y:=220-Round(132*cos(c*step));
 PaintBox1.Canvas.Pen.Width:=3;       //толстая линия
 PaintBox1.Canvas.LineTo(x,y);
 PaintBox1.Canvas.Pen.Width:=1;      //возврат размера линии
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
WindowState := wsMaximized;         //форма на весь экран
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Image5.Left:=round(Form1.Width/2)-round(Image5.Width/2)+260;
  Image6.Left:=round(Form1.Width/2)-round(Image6.Width/2)+20;
  Image4.Left:=round(Form1.Width/2)-round(Image4.Width/2)-240;
  Label6.Left:=round(Form1.Width/2)-round(Label6.Width/2);
  Image3.Left:=round(Form1.Width/2)-round(Image3.Width/2);
  PaintBox1.Left:=round(Form1.Width/2)-round(PaintBox1.Width/2)+25;
  Image2.Left:=round(Form1.Width/2)-round(Image2.Width/2);
  Label1.Left:=round(Form1.Width/2)-round(Label1.Width/2);
  //размещение часов по центру по горизонтале
  Image2.Top:=round(Form1.Height/2)-round(Image2.Height/2);
  Image5.Top:=round(Form1.Height/2)-round(Image5.Height/2)+10;
  Image6.Top:=round(Form1.Height/2)-round(Image6.Height/2)+260;
  Image4.Top:=round(Form1.Height/2)-round(Image4.Height/2)+17;
  Image3.Top:=round(Form1.Height/2)-round(Image3.Height/2)-260;
  PaintBox1.Top:=round(Form1.Height/2)-round(PaintBox1.Height/2)+25;
  Label6.Top:=round(Form1.Height/2)-round(Label6.Height/2)+290;
  Label1.Top:=round(Form1.Height/2)-round(Label1.Height/2)-290;
  //размещение часов по центру по вертикале
 
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
  Image5.Left:=round(Form1.Width/2)-round(Image5.Width/2)+260;
  Image6.Left:=round(Form1.Width/2)-round(Image6.Width/2)+20;
  Image4.Left:=round(Form1.Width/2)-round(Image4.Width/2)-240;
  Label6.Left:=round(Form1.Width/2)-round(Label6.Width/2);
  Image3.Left:=round(Form1.Width/2)-round(Image3.Width/2);
  PaintBox1.Left:=round(Form1.Width/2)-round(PaintBox1.Width/2)+25;
  Image2.Left:=round(Form1.Width/2)-round(Image2.Width/2);
  Label1.Left:=round(Form1.Width/2)-round(Label1.Width/2);
  //размещение часов по центру по горизонтале
  Image2.Top:=round(Form1.Height/2)-round(Image2.Height/2);
  Image5.Top:=round(Form1.Height/2)-round(Image5.Height/2)+10;
  Image6.Top:=round(Form1.Height/2)-round(Image6.Height/2)+260;
  Image4.Top:=round(Form1.Height/2)-round(Image4.Height/2)+17;
  Image3.Top:=round(Form1.Height/2)-round(Image3.Height/2)-260;
  PaintBox1.Top:=round(Form1.Height/2)-round(PaintBox1.Height/2)+25;
  Label6.Top:=round(Form1.Height/2)-round(Label6.Height/2)+290;
  Label1.Top:=round(Form1.Height/2)-round(Label1.Height/2)-310;
  //размещение часов по центру по вертикале
end;
 
 
procedure TForm1.FormShow(Sender: TObject);
begin
GetCursorPos(crs);       //запоминание координат курсора
  Application.OnMessage := DeactivateZastavka;
  ShowCursor(false);      //курсор не отображается
end;
 
procedure TForm1.DeactivateZastavka(var Msg: TMsg; var Handled: Boolean);
var
  done: boolean;
begin
{сдвиг мыши на 5 пикселей по X или Y}
  if Msg.message = WM_MOUSEMOVE then
   done := (Abs(LOWORD(Msg.lParam)-crs.X) > 5) or
   (Abs(HIWORD(Msg.lParam)-crs.Y) > 5)
  else
  {нажатие клавиатуры}
   done := (Msg.message = WM_KEYDOWN) or (Msg.message = WM_ACTIVATE) or
   (Msg.message = WM_ACTIVATEAPP) or (Msg.message = WM_NCACTIVATE) or
   {нажатие мыши}
   (Msg.message = WM_LBUTTONDOWN) or (Msg.message = WM_RBUTTONDOWN);
  if done then
   Close;
end;
 
procedure TForm1.FormHide(Sender: TObject);  
begin
ShowCursor(true);        //курсор отображается
end;
 
end.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program Project1;
 
uses
  Forms,
  SysUtils,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {CFG};
 
{$R *.res}
{$D SCRNSAVE Аналоговые Часы} 
 
begin
begin
 
if (ParamCount > 0) and (UpperCase(ParamStr(1)) = '/S') then
  begin
   Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TCFG, CFG);
  end
  else
  begin
   Application.CreateForm(TCFG, CFG);
   Application.CreateForm(TForm1, Form1);
  end;
  Application.Initialize;
  Application.Run;
end;
end.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Unit1, IniFiles;
 
type
  TCFG = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Button1: TButton;
    Button2: TButton;
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    //procedure LoadConfig;
    //procedure SaveConfig;
  private
    { Private declarations }
  public
   { Public declarations }
  end;
 
var
  CFG: TCFG;
  IniFile: TIniFile;
  CheckBox1: TCheckBox;
  CheckBox2: TCheckBox;
 
implementation
 
{$R *.dfm}
const
 
CfgFile = 'C:\WINDOWS\system32\ScreenSaver.INI';
 
procedure LoadConfig;              //загруза настроек
var
Inifile : TIniFile;
Clock,Date: Boolean;
begin
  IniFile:=TIniFile.Create(CfgFile);
  Clock:=IniFile.ReadBool('CheckBox', 'Clock', False);
  Date:=IniFile.ReadBool('CheckBox', 'Date', False);
  if Clock = True then cfg.CheckBox1.State:=cbChecked
     else cfg.CheckBox1.State:=cbUnchecked;
  if Date = True then cfg.CheckBox2.State:=cbChecked
     else cfg.CheckBox2.State:=cbUnchecked;
     IniFile.Free;
end;
 
procedure SaveConfig;                //сохранение настроек
var
 
Inifile : TIniFile;
Clock, Date: Boolean;
begin
   if cfg.CheckBox1.State = cbUnchecked then Clock:=false
     else Clock:=True;
 if cfg.CheckBox2.State = cbUnchecked then Date:=false
     else Date:=True;
 IniFile:=TIniFile.Create(CfgFile);
 IniFile.WriteBool('CheckBox', 'Clock', Clock);
 IniFile.WriteBool('CheckBox', 'Date', Date);
 IniFile.Free;
end;
 
procedure TCFG.CheckBox1Click(Sender: TObject); //цифровые часы
begin
 if CheckBox1.Checked then
 begin
 Form1.Label1.Visible:=true;      //тут выдает ошибку!!!!
 end
 else
  begin
     Form1.Label1.Visible:=false;
  end;
end;
 
procedure TCFG.CheckBox2Click(Sender: TObject);   //дата
begin
 if CheckBox2.Checked then
 begin
 Form1.Label6.Visible:=true;
 end                                     
 else begin
 Form1.Label6.Visible:=false;
 end;
end;
 
procedure TCFG.Button1Click(Sender: TObject);
begin
SaveConfig;
Close;
end;
 
procedure TCFG.Button2Click(Sender: TObject);
begin
 Form1.Show;
end;
 
procedure TCFG.FormCreate(Sender: TObject);
begin
LoadConfig;
end;
 
end.

deathNC · 16.03.2012, 20:44

Попробуй LoadConfig; вызывать не при FormCreate, а чуть позже... например, на событие формы OnShow...

@Nipel · 16.03.2012, 21:49 **[ТС]**

Сообщение от deathNC

Попробуй LoadConfig; вызывать не при FormCreate, а чуть позже... например, на событие формы OnShow...

о спасибо большое, помогло.

Добавлено через 1 час 0 минут
А еще помочь не можете? как вызвать LoadConfig из Unit1, в unit2 не хочет эта процедура объявляться, ругается. Пишу в OnShow LoadConfig ругается, и cfg.loadconfig тоже пробовал.

deathNC · 16.03.2012, 21:53

Nipel, в Uses добавь тот модуль, в котором есть эта процедура...
ну и ещё добавь строчку

Delphi
1
procedure LoadConfig;

до слова implementation, тогда процедура будет доступна в других модулях...

то есть:

Delphi
1
2
3
4
5
6
7
8
9
10
11
  procedure LoadConfig;  
 
implementation
 
...
 
procedure LoadConfig;              //загруза настроек
var
Inifile : TIniFile;
Clock,Date: Boolean;
...

@Nipel · 17.03.2012, 15:26 **[ТС]**

возникла еще одна проблема, кинул заставку в system32 и когда открываю через свойства экрана то сразу вылезает форма настроек, жму на пред просмотр, закрываю его и опять открывает окно с настройками, короче вылезает когда его не просят

Новые блоги и статьи Все статьи Все блоги /
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .

deathNC 1905 / 1016 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	16.03.2012, 20:44
	Попробуй LoadConfig; вызывать не при FormCreate, а чуть позже... например, на событие формы OnShow... 1

@Nipel 0 / 0 / 1 Регистрация: 14.01.2010 Сообщений: 78
	17.03.2012, 15:26 [ТС]
	возникла еще одна проблема, кинул заставку в system32 и когда открываю через свойства экрана то сразу вылезает форма настроек, жму на пред просмотр, закрываю его и опять открывает окно с настройками, короче вылезает когда его не просят 0