Немогу решит проблему. Самопроизволный вызов процедуры. / Delphi

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Delphi [игнор отключен] [закрыт для гостей] / Немогу решит проблему. Самопроизволный вызов процедуры.

39 сообщений из 39, показаны все 2 страниц

все

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916621

Rustam Ergashev

Гость

Сделал давно программу тест. Работал себе, я даже забыл о нем. Вот пришлось немного поправить код, сделать как сказать оптимизацию. Вот такой глюк и проблему не могу решить. Например есть ли общый количество вопросов 5, при ответе 4 вопроса и оставление 5 того вопроса, то при завершение теста то 5 вопрос появляется с ответом из 4 вопроса. Вот кусок где я завершаю тест.

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.

procedure TForm.Image3Click(Sender: TObject);
begin
  Timer1.Enabled:=False;
  if Application.MessageBox('Хотите завершит тест?','Тест',MB_YESNO+MB_ICONQUESTION)=IDYES   then
    begin
       TestEnd;
    end
  else Timer1.Enabled:=True;
end;

В форме есть RadioGroup при нажатие вызевает процедуру RadioGroup1Click, каторый записывает в базу вариант ответа. Но как видете при завершение нет его вызова но при выполнение это процедура вызевается ?!!!! после Application.MessageBox. Вот это я немогу понят, или я что то упустил?

...

Рейтинг:

0 / 0

21.01.2020, 08:07

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916624

DimaBr

Участник

Сообщения: 12 435

Рейтинг: 0 / 0

...

Рейтинг:

0 / 0

21.01.2020, 08:16

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916632

Rustam Ergashev

Гость

Есть ли просто то после выполнения

Код: pascal

if Application.MessageBox('Хотите завершит тест?','Тест',MB_YESNO+MB_ICONQUESTION)=IDYES   then

вызывается

Код: pascal

procedure TForm.RadioGroup1Click(Sender: TObject);

Хотя в коде нет его вызова.

...

Рейтинг:

0 / 0

21.01.2020, 08:45

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916636

DimaBr

Участник

Сообщения: 12 435

Рейтинг: 0 / 0

А поставить бряку в RadioGroup1Click и посмотреть стек вызова ?

...

Рейтинг:

0 / 0

21.01.2020, 08:52

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916637

Rustam Ergashev

Гость

По шагу сделал выполнение и вот что нашел еще одну ошибку выводит сообшения frxclass.pas not found и спрашиваеть указать место его прожевания. Прога Delphi XE2 и FastReport 4.11.17 работаю с базой FireBird 2.1. И Всё это в VirtualBoxе. Я в основном работаю в Delphi7 и стакими ошибками не сталкивалься. frxClass.dcu есть frxClass.res а frxClass.pas нету. Что нужно делат? Я уже туплю. Вот что нашел http://codeverge.com/embarcadero.delphi.ide/frxclass.pas-not-found/1060739 на не получается

...

Рейтинг:

0 / 0

21.01.2020, 08:53

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916641

Rustam Ergashev

Гость

Вот какая ощибка. Это повлияеть на код. Я его даже не замечал, прога работает и отчеты печатает.

...

Рейтинг:

0 / 0

21.01.2020, 09:18

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916656

DimaBr

Участник

Сообщения: 12 435

Рейтинг: 0 / 0

Это не ошибка. Зачем делать выполнение по шагам, если нужно двигаться по стеку в обратном порядке. Искать откуда произошёл вызов

...

Рейтинг:

0 / 0

21.01.2020, 09:49

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916663

x1ca4064

Участник

Сообщения: 1 191

Рейтинг: 0 / 0

Rustam Ergashev

Вот какая ощибка. Это повлияеть на код. Я его даже не замечал, прога работает и отчеты печатает.

Отсуствие исходников не должно влиять на Вашу поблему, или подозреваете, что репорт вызывает RadioGroup1Click?

...

Рейтинг:

0 / 0

21.01.2020, 09:53

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916669

Rustam Ergashev

Гость

Такого еще не было, сижу ничего не понимаю. Почему прога переходить в другую процедуру? А ощибка с FastReportом здесь не причем . авторЭто не ошибка. Зачем делать выполнение по шагам, если нужно двигаться по стеку в обратном порядке. Искать откуда произошёл вызов Подробно обясните непонемаюшему этот пункт

...

Рейтинг:

0 / 0

21.01.2020, 10:02

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916675

DimaBr

Участник

Сообщения: 12 435

Рейтинг: 0 / 0

Вы хотите найти как программа попала в RadioGroup1Click.
Ставите туда Бряку (F5) и остановившись вызываете окно Стека (Ctrl+Alt+S).
Не нужно жмакать F7/F8 продолжая программу дальше.

...

Рейтинг:

0 / 0

21.01.2020, 10:17

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916676

энди

Участник

Откуда: Киров, Россия

Сообщения: 1 325

Рейтинг: 0 / 0

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

...

Рейтинг:

0 / 0

21.01.2020, 10:19

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916677

Rustam Ergashev

Гость

Вот так?

...

Рейтинг:

0 / 0

21.01.2020, 10:20

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916683

DimaBr

Участник

Сообщения: 12 435

Рейтинг: 0 / 0

Ctrl+Alt+S

...

Рейтинг:

0 / 0

21.01.2020, 10:29

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916686

DimaBr

Участник

Сообщения: 12 435

Рейтинг: 0 / 0

Это окно Messages, а нужно окно Call Stack

...

Рейтинг:

0 / 0

21.01.2020, 10:30

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916698

Rustam Ergashev

Гость

Вот первый раз сам вызвал
А второй раз сам как то :(

...

Рейтинг:

0 / 0

21.01.2020, 11:00

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916699

Rustam Ergashev

Гость

...

Рейтинг:

0 / 0

21.01.2020, 11:00

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916700

Rustam Ergashev

Гость

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

...

Рейтинг:

0 / 0

21.01.2020, 11:01

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916724

Cobalt747

Участник

Сообщения: 2 360

Рейтинг: 0 / 0

Rustam Ergashev,

Сборку сделай отладочную а не релизную.

...

Рейтинг:

0 / 0

21.01.2020, 11:54

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916732

DimaBr

Участник

Сообщения: 12 435

Рейтинг: 0 / 0

Project-Options-Compiling-Use debug .dcus - TRUE

...

Рейтинг:

0 / 0

21.01.2020, 12:07

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916740

wadman

Участник

Откуда: Санкт-Петербург

Сообщения: 26 163

Рейтинг: 0 / 0

DimaBr

Project-Options-Compiling-Use debug .dcus - TRUE

Не, это перебор будет. Зачем ему системные библиотеки?

...

Рейтинг:

0 / 0

21.01.2020, 12:16

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916838

Cobalt747

Участник

Сообщения: 2 360

Рейтинг: 0 / 0

Хммм, наверно у него с bpl-ками собрано, тут я не уверен поможет ли...

...

Рейтинг:

0 / 0

21.01.2020, 15:07

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916840

DimaBr

Участник

Сообщения: 12 435

Рейтинг: 0 / 0

А что в TestEnd ?

...

Рейтинг:

0 / 0

21.01.2020, 15:20

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916849

Rustam Ergashev

Гость

DimaBr,
А там ничего интересного

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.

DMForm.dtsAnswerCorCount.ParamByName('info_id').AsInteger:=info_id;
   DMForm.dtsAnswerCorCount.Open;
   answer_correct:=DMForm.dtsAnswerCorCount.FieldByName('ans_cor').AsInteger;
   DMForm.dtsAnswerCount.ParamByName('info_id').AsInteger:=info_id;
   DMForm.dtsAnswerCount.Open;
   answer_count:=DMForm.dtsAnswerCount.FieldByName('ans_cnt').AsInteger;
   DMForm.dtsInfo.Edit;
   DMForm.dtsInfo.FieldByName('test_time_e').AsDateTime:=Time;
   DMForm.dtsInfo.FieldByName('question_correct').AsInteger:=answer_correct;
   DMForm.dtsInfo.FieldByName('question_sum').AsInteger:=answer_count;
   DMForm.dtsInfo.Post;
   DMForm.trTest.CommitRetaining;

   DMForm.dtsRepTest.Close;
   DMForm.dtsRepTest.ParamByName('id').AsInteger:=info_id;
   DMForm.dtsRepTest.Open;

   DMForm.dtsComList.Close;
   DMForm.dtsComList.ParamByName('test_id').AsInteger:=DMForm.dtsInfo.FieldByName('test_id').AsInteger;
   DMForm.dtsComList.Open;
   Top1String:= SavolForm.rpTest2.FindObject('memo2') as TfrxMemoView;
   Top1String.Text:= SavolForm.Label4.Caption;
   SavolForm.rpTest2.ShowReport;

Сохранение ответов базе и распечатка результата. Но до этого после Application.MessageBox получаю переход в RadioGroup1Click

...

Рейтинг:

0 / 0

21.01.2020, 15:32

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916856

_Vasilisk_

Участник

Откуда: Украина, Харьков

Сообщения: 13 612

Рейтинг: 0 / 0

Rustam Ergashev

Здесь я вижу хинт компилятораVariable 'buttonSelected' is declared but never used in 'TSavolForm.Image3Click'
Здесь

Rustam Ergashev

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.

procedure TForm.Image3Click(Sender: TObject);
begin
  Timer1.Enabled:=False;
  if Application.MessageBox('Хотите завершит тест?','Тест',MB_YESNO+MB_ICONQUESTION)=IDYES   then
    begin
       TestEnd;
    end
  else Timer1.Enabled:=True;
end;

никакой переменной buttonSelected нет.

Давайте обсуждать реальный код, а не ваши фантазии

...

Рейтинг:

0 / 0

21.01.2020, 15:43

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916877

Rustam Ergashev

Гость

_Vasilisk_,
это просто было проверка я поменял Application.MessageBox другим компонентой, в другой компоненте тоже такой глюк получил, подумал дело не в Application.MessageBox и вернул а buttonSelected от туда осталось. Потом почистил код.

...

Рейтинг:

0 / 0

21.01.2020, 16:32

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916878

Rustam Ergashev

Гость

А одном компе Delphi 7 и DelphiXE2 может жить дружно? Друг другу нимогут мешать или есть какие то нюансы, а то в виртуалке трудно работат.

...

Рейтинг:

0 / 0

21.01.2020, 16:34

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916900

DarkMaster

Участник

Откуда: Donetsk,Ukraine

Сообщения: 6 681

Рейтинг: 0 / 0

Rustam Ergashev

На одном компе легко живет вся линейка Дельфей одновременно.

...

Рейтинг:

0 / 0

21.01.2020, 17:53

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916907

_Vasilisk_

Участник

Откуда: Украина, Харьков

Сообщения: 13 612

Рейтинг: 0 / 0

Rustam Ergashev

А второй раз сам как то :(

Низ окна не видно

...

Рейтинг:

0 / 0

21.01.2020, 18:15

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39916965

ёёёёё

Участник

Сообщения: 2 086

Рейтинг: 0 / 0

Надо винду переставить.

...

Рейтинг:

0 / 0

21.01.2020, 19:37

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39917012

defecator

Модератор форума

Сообщения: 41 886

Рейтинг: 4 / 6

ёёёёё

Надо винду переставить.

и обязательно перешить BIOS

...

Рейтинг:

0 / 0

21.01.2020, 21:37

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39917016

DimaBr

Участник

Сообщения: 12 435

Рейтинг: 0 / 0

Rustam Ergashev

Сохранение ответов базе и распечатка результата. Но до этого после Application.MessageBox получаю переход в RadioGroup1Click

А в "Сохранение ответов базе и распечатка результата" попадает ?

...

Рейтинг:

0 / 0

21.01.2020, 21:46

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39917017

DimaBr

Участник

Сообщения: 12 435

Рейтинг: 0 / 0

Пройдитесь поиском по DFM, может где то ещё назначено RadioGroup1Click

...

Рейтинг:

0 / 0

21.01.2020, 21:49

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39917080

Rustam Ergashev

Гость

DimaBr,

Переход в распечатку я попадаю но до этого срабатвает процедура RadioGroup1Click. RadioGroup1Click поискал нигде нет его вызова кроме нажатие самой RadioGroup. Буду дальше тестит и искать, но пока до конца непонял Call Stack.

...

Рейтинг:

0 / 0

22.01.2020, 06:23

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39917109

DimaBr

Участник

Сообщения: 12 435

Рейтинг: 0 / 0

То есть при нажатии на YES, закрывается окно диалога и вы попадете в RadioGroup1Click, а после неё внутрь TestEnd ?

...

Рейтинг:

0 / 0

22.01.2020, 08:33

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39917175

alekcvp

Участник

Сообщения: 2 924

Рейтинг: 0 / 0

Сдаётся мне что там где-то идёт затирание памяти и "переход" в RadioGroup1Click - тупо совпадение.

...

Рейтинг:

0 / 0

22.01.2020, 11:12

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39917261

GeraR

Гость

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

begin
  Timer1.Enabled:=False;
  RadioGroup1.OnClick := Nil;
  if Application.MessageBox('Хотите завершит тест?','Тест',MB_YESNO+MB_ICONQUESTION)=IDYES   then
    begin
       TestEnd;
    end
  else Timer1.Enabled:=True;
  RadioGroup1.OnClick :=   RadioGroup1Click;
end;

Может так поможет

...

Рейтинг:

0 / 0

22.01.2020, 12:59

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39917312

Rustam Ergashev

Гость

DimaBr

То есть при нажатии на YES, закрывается окно диалога и вы попадете в RadioGroup1Click, а после неё внутрь TestEnd ?

Да, но это в том случае если я не выбераю в открытом окне вариант ответа и нажимаю на кнопку Окончание теста. (который вызивает TestEnd процедуру выше описал). Программа сама запускает RadioGroup1Click записывает ответ, вариант выбираеть из предедушего ответа и потом переходить в TestEnd.

...

Рейтинг:

0 / 0

22.01.2020, 14:24

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39917349

DimaBr

Участник

Сообщения: 12 435

Рейтинг: 0 / 0

Значит вы ищите не там где нужно.
Если после нажатия YES происходят какие то действия до вызова TestEnd то попахивает испорченной памятью

...

Рейтинг:

0 / 0

22.01.2020, 15:06

| Ответить | Цитировать | Написать

Немогу решит проблему. Самопроизволный вызов процедуры.

#39917361

Ghost Writer

Участник

Откуда: Россия

Сообщения: 928

Рейтинг: 0 / 0

Rustam Ergashev,

А в самом RadioGroup1Click что ? сразу по клику INSERT в базу ?
Вы в курсе, что RadioGroup1.ItemIndex := X - это тоже вызывает клик ?

...

Рейтинг:

0 / 0

22.01.2020, 15:16

| Ответить | Цитировать | Написать

39 сообщений из 39, показаны все 2 страниц

все

Форумы / Delphi [игнор отключен] [закрыт для гостей] / Немогу решит проблему. Самопроизволный вызов процедуры.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?all=1&fid=58&tid=2038676]:	0ms
get settings:	7ms
get forum list:	17ms
check forum access:	3ms
check topic access:	3ms
track hit:	154ms
get topic data:	10ms
get forum data:	2ms
get page messages:	77ms
get tp. blocked users:	1ms
others:	211ms

total:	485ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы