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, все верно..к сожалению в техникумах не обучают

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .

@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