Project Incassaciya.exe raised exception class EAccessViolation with message 'Access violation at address

@RedBull89 · Регистрация: 04.06.2012

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

Помогите пожалуйста. При запуске программы вылезает ошибка:

Project Incassaciya.exe raised exception class EAccessViolation with message 'Access violation at address 004618FD in module 'Incassaciya.exe'. Read od Address 000002FC'. 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
procedure TfrmMain.FormShow(Sender: TObject);
var fini: TiniFile;
begin
  fini:=TiniFile.Create(ExtractFilePath(Application.ExeName)+'init.ini');
  FrmRekviziti.EdtDebet.Text := fini.ReadString('Main','Debet',''); //ошибка тут
  FrmRekviziti.EdtKredit.Text := fini.ReadString('Main','Kredit','');
  FrmRekviziti.EdtOtKogo.Text := fini.ReadString('Main','Ot Kogo','');
  FrmRekviziti.EdtPoluchatel.Text := fini.ReadString('Main','Poluchatel','');
  FrmRekviziti.EdtINN.Text := fini.ReadString('Main','INN','');
  FrmRekviziti.EdtRasSchet.Text := fini.ReadString('Main','Raschetniy Schet','');
  FrmRekviziti.EdtBankVnos.Text := fini.ReadString('Main','Bank Vnositel','');
  FrmRekviziti.EdtBIKVnos.Text := fini.ReadString('Main','BIK Vnositelya','');
  FrmRekviziti.EdtBankPoluch.Text := fini.ReadString('Main','Bank Poluchatel','');
  FrmRekviziti.EdtBIKPoluch.Text := fini.ReadString('Main','BIK Poluchatelya','');
  FrmRekviziti.EdtIstPost.Text := fini.ReadString('Main','Istochnik Postupleniya','');
  FrmRekviziti.EdtSimvol.Text := fini.ReadString('Main','Simvol','');
end;

Раньше все работало отлично, потом в свойствах формы менял значения в BorderStyle и FormStyle.
Код из ini-файла заносит данные в эдиты на другой форме.

Причем если этот код кинуть в кнопку а не в свойство формы FormShow, то все работает отлично

@mss · 17.04.2015, 21:12

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

Ошибку показывает на строку в коде ниже

Их там целая дюжина, строк-то)

На какую конкретно ?

@RedBull89 · 17.04.2015, 21:19 **[ТС]**

На ту у которой комментарий стоит. Если ее закоментить, то на следующую за ней

@mss · 17.04.2015, 21:24

Значит в переменной FrmRekviziti лежит хрень

@RedBull89 · 17.04.2015, 21:26 **[ТС]**

Это форма. Ничего особенного там нет.

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
implementation
uses IniFiles, UMain;
{$R *.dfm}
 
procedure TFrmRekviziti.BtnSaveIzmClick(Sender: TObject);
var fini: TiniFile;
begin
  fini:=TiniFile.Create(ExtractFilePath(Application.ExeName)+'init.ini');
  fini.WriteString('Main','Debet',EdtDebet.text);
  fini.WriteString('Main','Kredit',EdtKredit.text);
  fini.WriteString('Main','Ot Kogo',EdtOtKogo.text);
  fini.WriteString('Main','Poluchatel',EdtPoluchatel.text);
  fini.WriteString('Main','INN',EdtINN.text);
  fini.WriteString('Main','Raschetniy Schet',EdtRasSchet.text);
  fini.WriteString('Main','Bank Vnositel',EdtBankVnos.text);
  fini.WriteString('Main','BIK Vnositelya',EdtBIKVnos.text);
  fini.WriteString('Main','Bank Poluchatel',EdtBankPoluch.text);
  fini.WriteString('Main','BIK Poluchatelya',EdtBIKPoluch.text);
  fini.WriteString('Main','Istochnik Postupleniya',EdtIstPost.text);
  fini.WriteString('Main','Simvol',EdtSimvol.text);
  fini.Free;
 
  MessageBox(Handle,'Èçìåíåíèÿ óñïåøíî ñîõðàíåíû!','Ðåêâèçèòû',MB_OK);
  FrmMain.Enabled:=true;
  FrmRekviziti.Visible:=false;
end;
 
procedure TFrmRekviziti.BtnVihBezIzmClick(Sender: TObject);
begin
  FrmMain.Enabled:=true;
  FrmRekviziti.Visible:=false;
end;
 
procedure TFrmRekviziti.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  FrmMain.Enabled:=true;
  FrmRekviziti.Visible:=false;
end;

@mss · 17.04.2015, 21:29

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

Это форма

Это переменная. И в переменной этой в момент обращения к ней находится что угодно, но только не то что ты ожидаешь.

@RedBull89 · 17.04.2015, 21:33 **[ТС]**

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

Мог ли я как то в свойствах формы ограничить доступ к ней ?

Добавлено через 2 минуты
Раньше все работало отлично. Но потом я решил сменить иконку окна, пробовал менять вид формы. Но все делал в свойствах. В коде не менял ничего.

@mss · 17.04.2015, 21:36

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

Но я к ней обращаюсь, чтобы занести данные

Где ?)

@RedBull89 · 17.04.2015, 21:38 **[ТС]**

Кстати если косяк в переменной, то почему я могу этим же кодом работать в кнопке?

Добавлено через 1 минуту
Как где

Delphi
1
FrmRekviziti.EdtDebet.Text := fini.ReadString('Main','Debet','');

В этой строке я обращаюсь к Edit'y на форме frmRekviziti, что бы занести данные из ini-файла

@mss · 17.04.2015, 21:48

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

почему я могу этим же кодом работать в кнопке?

Потому что в момент нажатия кнопки в переменной не хрень, а ожидаемое значение.
Ищи все места в своем проекте, где происходит обращение по записи к этой переменной.

@RedBull89 · 17.04.2015, 21:56 **[ТС]**

Обращаюсь к ней только при переходе на форму frmRekviziti.

@mss · 17.04.2015, 21:57

Да ладно ?)
А значение-то в нее кто заносит, святой дух ?)

@RedBull89 · 17.04.2015, 21:59 **[ТС]**

Ничего не понимаю(( раньше то почему работало, ничего не менял же.

Добавлено через 1 минуту
Так ошибка и выдается в коде где я в нее значения заношу.

@mss · 17.04.2015, 22:04

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

раньше то почему работало

Раньше и деревья были большие и штаны "клёш" модными)

Мало ли что было раньше ! Тебе поностальгировать или все же причину проблемы искать ?)

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

Так ошибка и выдается в коде где я в нее значения заношу

Я и спросил - покажи эту строку..

@RedBull89 · 17.04.2015, 22:07 **[ТС]**

Может на момент открытия формы Main нет возможности достучаться до формы Rekviziti ?

Добавлено через 1 минуту

Delphi
1
2
  fini:=TiniFile.Create(ExtractFilePath(Application.ExeName)+'init.ini');
  FrmRekviziti.EdtDebet.Text := fini.ReadString('Main','Debet','');

В первой строке ini файл открываю.
Во второй заношу из него данные в edtDebet который находится на форме frmRekviziti

@mss · 17.04.2015, 22:09

Может и нет, и практически наверняка так оно и есть...
Будешь продолжать трясти бубен или все-таки покажешь место в своем коде, где у тебя фигурирует переменная frmRekviziti кроме тех мест что ты уже показал ?

@RedBull89 · 17.04.2015, 22:13 **[ТС]**

Delphi
1
2
3
4
5
procedure TfrmMain.B1Click(Sender: TObject);
begin
  frmMain.Enabled:=False;
  frmRekviziti.Visible:=True;
end;

Delphi
1
2
3
4
5
6
7
8
9
10
11
  EXCEL.Worksheets[1].range['ca9;ca33;ca65']:=FrmRekviziti.EdtDebet.Text;
  EXCEL.Worksheets[1].range['ca11;ca35;ca67']:=FrmRekviziti.EdtKredit.Text;
  EXCEL.Worksheets[1].range['l9;l33;l65']:=FrmRekviziti.EdtOtKogo.Text;
  EXCEL.Worksheets[1].range['q11;q35;q67']:=FrmRekviziti.EdtPoluchatel.Text;
  EXCEL.Worksheets[1].range['i13;i37;i69']:=FrmRekviziti.EdtINN.Text;
  EXCEL.Worksheets[1].range['bf13;bf37;bf69']:=FrmRekviziti.EdtRasSchet.Text;
  EXCEL.Worksheets[1].range['am14;am38;am70']:=FrmRekviziti.EdtBankVnos.Text;
  EXCEL.Worksheets[1].range['cj15;cj39;cj71']:=FrmRekviziti.EdtBIKVnos.Text;
  EXCEL.Worksheets[1].range['an16;an40;an72']:=FrmRekviziti.EdtBankPoluch.Text;
  EXCEL.Worksheets[1].range['ac21;ac45;ac76']:=FrmRekviziti.EdtIstPost.Text;
  EXCEL.Worksheets[1].range['dr15;dr39;dr71']:=FrmRekviziti.EdtSimvol.Text;

@mss · 17.04.2015, 22:15

ну а в файйл проекта заглядывал ?)

@RedBull89 · 17.04.2015, 22:16 **[ТС]**

Но самый первый раз, если я все правильно понимаю, программа к ней обращается как раз где ошибка происходит. при запуске срабатывает FormShow и в нем ошибка

Добавлено через 42 секунды
в файл ini имеется в виду?
А так проект у меня открыт

@mss · 17.04.2015, 22:17

файл проекта -это dpr-файл, причем тут ini-файл ?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

@RedBull89 0 / 0 / 0 Регистрация: 04.06.2012 Сообщений: 120
	17.04.2015, 21:19 [ТС]
	На ту у которой комментарий стоит. Если ее закоментить, то на следующую за ней 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	17.04.2015, 21:24
	Значит в переменной FrmRekviziti лежит хрень 0

@RedBull89 0 / 0 / 0 Регистрация: 04.06.2012 Сообщений: 120
	17.04.2015, 21:33 [ТС]
	Но я к ней обращаюсь, чтобы занести данные. От нее ничего не требую, все эдиты которые прописал в коде, находятся на форме. Мог ли я как то в свойствах формы ограничить доступ к ней ? Добавлено через 2 минуты Раньше все работало отлично. Но потом я решил сменить иконку окна, пробовал менять вид формы. Но все делал в свойствах. В коде не менял ничего. 0

@RedBull89 0 / 0 / 0 Регистрация: 04.06.2012 Сообщений: 120
	17.04.2015, 21:56 [ТС]
	Обращаюсь к ней только при переходе на форму frmRekviziti. 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	17.04.2015, 21:57
	Да ладно ?) А значение-то в нее кто заносит, святой дух ?) 0

@RedBull89 0 / 0 / 0 Регистрация: 04.06.2012 Сообщений: 120
	17.04.2015, 21:59 [ТС]
	Ничего не понимаю(( раньше то почему работало, ничего не менял же. Добавлено через 1 минуту Так ошибка и выдается в коде где я в нее значения заношу. 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	17.04.2015, 22:09
	Может и нет, и практически наверняка так оно и есть... Будешь продолжать трясти бубен или все-таки покажешь место в своем коде, где у тебя фигурирует переменная frmRekviziti кроме тех мест что ты уже показал ? 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	17.04.2015, 22:15
	ну а в файйл проекта заглядывал ?) 0

@RedBull89 0 / 0 / 0 Регистрация: 04.06.2012 Сообщений: 120
	17.04.2015, 22:16 [ТС]
	Но самый первый раз, если я все правильно понимаю, программа к ней обращается как раз где ошибка происходит. при запуске срабатывает FormShow и в нем ошибка Добавлено через 42 секунды в файл ini имеется в виду? А так проект у меня открыт 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	17.04.2015, 22:17
	файл проекта -это dpr-файл, причем тут ini-файл ? 0