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, то все работает отлично

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

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

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

Delphi
1
  Application.CreateForm(TFrmRekviziti, FrmRekviziti);

В этой строке создается форма TFrmRekviziti и ее данные заносятся в переменную FrmRekviziti, чтобы потом к ней обращаться ?

@mss · 17.04.2015, 22:53

Не по теме:

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

пробовал методом тыка

Т.е. тем самым ты подтверждаешь что northener был не далек от истины)

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

Нет. Если я много не знаю, это не значит что я украл у кого-то.

Добавлено через 1 минуту
Не думаю что он найдет такой проект в инете. Может с такой же темой, но не сам проект

@mss · 17.04.2015, 22:57

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

создается форма TFrmRekviziti и ее данные заносятся в переменную FrmRekviziti

Не данные, а адрес местонахождения объекта в памяти туда заносится.

И занесется он туда гарантированно не раньше успешного завершения выполнения строчки Applicatiom.CreateForm

Добавлено через 51 секунду

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

это не значит что я украл

Я вообще-то про ручки)

@RedBull89 · 17.04.2015, 23:00 **[ТС]**

Что ж я такое мог сделать, что не может создаться форма.

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

@mss · 17.04.2015, 23:02

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

Что ж я такое мог сделать, что не может создаться форма

Ты ничего не понял)

Поехали по-новой..
На основании чего ты сделал умозаключение что она не создается ?

@RedBull89 · 17.04.2015, 23:03 **[ТС]**

Интересно. У меня не создаются получается формы Rekviziti и spravka. Я туда эдит кинул и в него попробовал из ini данные кинуть, такая же ошибка

@mss · 17.04.2015, 23:04

Не по теме:

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

не имеющие времени читать учебник

Экие деловые они у тебя).. Прямо на зависть))

@krapotkin · 17.04.2015, 23:04

короче
сделай так
в свойствах проекта найди Forms
убери из AutoCreate свою TFrmRekviziti
у главной формы в событии OnCreate напиши

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TfrmMain.FormCreate(Sender: TObject);
var fini: TiniFile;
begin
  FrmRekviziti:=TFrmRekviziti.Create(Application);
  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','');
  fini.free;
end;

а FormShow забудь plz
не для этого она

@RedBull89 · 17.04.2015, 23:05 **[ТС]**

Т.к. строчка Applicatiom.CreateForm не выполняется. А если исходить из того что это создание формы, то форма получается не создается

@mss · 17.04.2015, 23:06

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

У меня не создаются получается формы

Да создаются они !!
Но вовсе не тогда когда ты предполагаешь что они уже созданы..

@RedBull89 · 17.04.2015, 23:08 **[ТС]**

krapotkin, есть свойство FormStyle, а Forms не нахожу. Правда это свойства формы.

Добавлено через 44 секунды
mss, Значит надо их поставить перед созданием формы Main. Правда тогда и вылезут они первее

Добавлено через 19 секунд
Впрочем, это я уже писал, бредово как то

@mss · 17.04.2015, 23:09

Не по теме:

krapotkin, ну и зачем ?)
Чел должен был сам допереть где и почему косяк)
Мож таки проснулось бы у него желание попридержать ручки и вложить в них учебник ..
На то мы тут и протираем штаны, чтобы проникнуть этим всяк сюда входящего))

@krapotkin · 17.04.2015, 23:12

Не по теме:

ок, продолжайте не буду мешать )))

@RedBull89 · 17.04.2015, 23:12 **[ТС]**

Блин я наверно в FormStyle наделал делов..

@mss · 17.04.2015, 23:17

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

Значит надо

Не надо !
Не надо их никуда ни ставить, ни садить, ни ложить)
Тебе надо понять почему происходит то что вроде бы не должно происходить..

А для этого нужно раз и навсегда выяснить последовательность и условия возникновения всех без исключения событий объекта-формы..
А для этого нужно умерить писательский пыл и таки присесть за учебник, ибо без этого грабли будут испытывать твою башню на прочность чем дальше тем чаще))

@RedBull89 · 17.04.2015, 23:18 **[ТС]**

Я один фиг не понял, т.к. не знаю где смотреть свойства проекта а не формы. И не понимаю почему раньше код работал и в FormShow без добавления строки в код

@mss · 17.04.2015, 23:19

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

я наверно в FormStyle наделал делов

Ну а какая разница ?
У формы еще туча других свойств..
Завтра это оставишь в покое, тронешь другое - опять огребешь)

@northener · 17.04.2015, 23:20

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

Сегодня, но косяк произошел после того, как я в свойствах полазил..может что не то нажал

Вот так нынче пишут свои программы троешники кулинарных техникумов/лицеев.
Я где-то полазил и что-то нажал!

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

Нда, короче я не менял никаких свойств как сказал Krapotkin, но закинул код в метод Create и добавил строку как он это сделал..вроди заработало..правда не понимаю почему

Добавлено через 38 секунд
northener, все верно..к сожалению в техникумах не обучают

Новые блоги и статьи Все статьи Все блоги /
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, 22:56 [ТС]
	Нет. Если я много не знаю, это не значит что я украл у кого-то. Добавлено через 1 минуту Не думаю что он найдет такой проект в инете. Может с такой же темой, но не сам проект 0

@RedBull89 0 / 0 / 0 Регистрация: 04.06.2012 Сообщений: 120
	17.04.2015, 23:00 [ТС]
	Что ж я такое мог сделать, что не может создаться форма. Добавлено через 2 минуты Ну скажем не кривые, а не имеющие времени читать учебник. Поэтому методом тыка. Но я не думал что в свойствах формы можно так накосячить 0

@RedBull89 0 / 0 / 0 Регистрация: 04.06.2012 Сообщений: 120
	17.04.2015, 23:03 [ТС]
	Интересно. У меня не создаются получается формы Rekviziti и spravka. Я туда эдит кинул и в него попробовал из ini данные кинуть, такая же ошибка 0

@RedBull89 0 / 0 / 0 Регистрация: 04.06.2012 Сообщений: 120
	17.04.2015, 23:05 [ТС]
	Т.к. строчка Applicatiom.CreateForm не выполняется. А если исходить из того что это создание формы, то форма получается не создается 0

@RedBull89 0 / 0 / 0 Регистрация: 04.06.2012 Сообщений: 120
	17.04.2015, 23:08 [ТС]
	krapotkin, есть свойство FormStyle, а Forms не нахожу. Правда это свойства формы. Добавлено через 44 секунды mss, Значит надо их поставить перед созданием формы Main. Правда тогда и вылезут они первее Добавлено через 19 секунд Впрочем, это я уже писал, бредово как то 0

@mss
	17.04.2015, 23:09
	Не по теме: krapotkin, ну и зачем ?) Чел должен был сам допереть где и почему косяк) Мож таки проснулось бы у него желание попридержать ручки и вложить в них учебник .. На то мы тут и протираем штаны, чтобы проникнуть этим всяк сюда входящего)) 0

@krapotkin
	17.04.2015, 23:12
	Не по теме: ок, продолжайте не буду мешать ))) 0

@RedBull89 0 / 0 / 0 Регистрация: 04.06.2012 Сообщений: 120
	17.04.2015, 23:12 [ТС]
	Блин я наверно в FormStyle наделал делов.. 0

@RedBull89 0 / 0 / 0 Регистрация: 04.06.2012 Сообщений: 120
	17.04.2015, 23:18 [ТС]
	Я один фиг не понял, т.к. не знаю где смотреть свойства проекта а не формы. И не понимаю почему раньше код работал и в FormShow без добавления строки в код 0

@RedBull89 0 / 0 / 0 Регистрация: 04.06.2012 Сообщений: 120
	17.04.2015, 23:21 [ТС]
	Нда, короче я не менял никаких свойств как сказал Krapotkin, но закинул код в метод Create и добавил строку как он это сделал..вроди заработало..правда не понимаю почему Добавлено через 38 секунд northener, все верно..к сожалению в техникумах не обучают 0