ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Нет данных в стеке
22 сообщений из 22, страница 1 из 1
Нет данных в стеке
    #39471916
Lisichkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lisichkin
Участник
Всем добрый день!
Имеется чужой проект с такой чудной строчкой:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
procedure TFRM_SPR_SUBG.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  try
    DM.TBL_SPR_SUBG.Post; // DM.TBL_SPR_SUBG.State not in [dsInsert, dsEdit] - мой комментарий и здесь происходит ошибка
  except
  end;
  CanClose := true;
end;



Происходит ошибка. Стек:
DatabaseError('Dataset not in edit or insert mode',$10B8340)
TDataSet.UpdateRecord
TDataSet.Post
TCustomForm.CloseQuery
TCustomForm.Close
TCustomForm.WMClose((16, (0, 0, 0, 0), 0))
TControl.WndProc((16, 0, 0, 0, 0, 0, 0, 0, 0, 0))
TWinControl.WndProc((16, 0, 0, 0, 0, 0, 0, 0, 0, 0))
TCustomForm.WndProc((16, 0, 0, 0, 0, 0, 0, 0, 0, 0))
TWinControl.MainWndProc((16, 0, 0, 0, 0, 0, 0, 0, 0, 0))
StdWndProc(264844,16,0,0)
TWinControl.DefaultHandler((no value))
TCustomForm.DefaultHandler((no value))
TWinControl.WMSysCommand((274, 61536, 16843105, 353, 353, 257, 0))
TCustomForm.WMSysCommand((274, 61536, 16843105, 353, 353, 257, 0))
TControl.WndProc((274, 61536, 16843105, 0, 61536, 0, 353, 257, 0, 0))
TWinControl.WndProc((274, 61536, 16843105, 0, 61536, 0, 353, 257, 0, 0))
TCustomForm.WndProc((274, 61536, 16843105, 0, 61536, 0, 353, 257, 0, 0))
TWinControl.MainWndProc((274, 61536, 16843105, 0, 61536, 0, 353, 257, 0, 0))
StdWndProc(264844,274,61536,16843105)
TApplication.ProcessMessage((264844, 274, 61536, 16843105, 1448765, (353, 257)))
TApplication.HandleMessage
TApplication.Run

Почему в стеке нет ни слова про TFRM_SPR_SUBG.FormCloseQuery???
P.S. Delphi 7, Debug info+Debug DCU установлено.
...
Рейтинг: 0 / 0
15.06.2017, 09:27:11
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39471953
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
Lisichkin,

Ну а при запуске вне среды ошибка есть?
...
Рейтинг: 0 / 0
15.06.2017, 10:16:05
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39471970
Lisichkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lisichkin
Участник
При запуске без отладчика сообщения об ошибки нет - она гаситься
...
Рейтинг: 0 / 0
15.06.2017, 10:30:15
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39471986
schi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
schi
Участник
LisichkinВсем добрый день!
Имеется чужой проект с такой чудной строчкой:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
procedure TFRM_SPR_SUBG.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  try
    DM.TBL_SPR_SUBG.Post; // DM.TBL_SPR_SUBG.State not in [dsInsert, dsEdit] - мой комментарий и здесь происходит ошибка
  except
  end;
  CanClose := true;
end;



Происходит ошибка. Стек:
DatabaseError('Dataset not in edit or insert mode',$10B8340)
TDataSet.UpdateRecord
TDataSet.Post
TCustomForm.CloseQuery
^^^^^^^^^^^^^^^

Почему в стеке нет ни слова про TFRM_SPR_SUBG.FormCloseQuery???


А это не та строчка ?

Для любителей глотать исключения в аду приготовлен отдельный котел. И не один.
...
Рейтинг: 0 / 0
15.06.2017, 10:44:26
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39471987
Фотография DetSimen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DetSimen
Участник
LisichkinПочему в стеке нет ни слова про TFRM_SPR_SUBG.FormCloseQuery???


Потому что ошибка и происходит в FormCloseQuery. Стек начинает раскручиваться назад, показывая последовательность вызовов ДО этой функции.
...
Рейтинг: 0 / 0
15.06.2017, 10:44:31
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39471990
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
Lisichkin,

Код: pascal
1.
2.
3.
4.
5.
6.
procedure TFRM_SPR_SUBG.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if DM.TBL_SPR_SUBG.State in [dsInsert, dsEdit] then
    DM.TBL_SPR_SUBG.Post;
end;


И не надо гасить исключения.
...
Рейтинг: 0 / 0
15.06.2017, 10:46:39
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39471998
Lisichkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lisichkin
Участник
авторИ не надо гасить исключения.
Я кажется указал: авторИмеется чужой проект с такой чудной строчкой, что не являюсь автором этого чуда :))
...
Рейтинг: 0 / 0
15.06.2017, 10:51:31
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39472003
schi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
schi
Участник
Ну и убедиться, что в опциях компилятора указана гайка Stack Frames
...
Рейтинг: 0 / 0
15.06.2017, 10:54:55
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39472035
GunSmoker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GunSmoker
Участник
LisichkinПочему в стеке нет ни слова про

http://www.gunsmoker.ru/2015/02/stack-frames.html
...
Рейтинг: 0 / 0
15.06.2017, 11:10:39
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39472037
GunSmoker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GunSmoker
Участник
schi, не поможет без пересбора RTL/VCL.
...
Рейтинг: 0 / 0
15.06.2017, 11:11:27
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39472192
schi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
schi
Участник
GunSmokerschi, не поможет без пересбора RTL/VCL.

ТС использует use debug dcus, там разве эта опция не включена ?
...
Рейтинг: 0 / 0
15.06.2017, 12:48:28
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39472294
GunSmoker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GunSmoker
Участник
schi, к сожалению - нет.
...
Рейтинг: 0 / 0
15.06.2017, 14:14:23
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39472420
schi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
schi
Участник
GunSmokerschi, к сожалению - нет.

Век живи, век учись. Спасибо.
...
Рейтинг: 0 / 0
15.06.2017, 15:55:55
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39472473
Lisichkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lisichkin
Участник
Реанимирую тему :)
В наследованном проекте очень много кода типа приведенного выше
Код: pascal
1.
2.
3.
4.
try
........
except
end;



Как я могу найти все такие места??

P.S. Я смотрел на статический анализатор кода FixInsite, но Trial downloads ограничен Delphi 2006, а у меня Delphi 7
...
Рейтинг: 0 / 0
15.06.2017, 16:44:00
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39472498
Vizit0r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vizit0r
Участник
LisichkinКак я могу найти все такие места??
Внезапно,
Ctrl+Shift+F
...
Рейтинг: 0 / 0
15.06.2017, 16:59:46
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39472535
Lisichkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lisichkin
Участник
А если серьезно?

81 файл содержит строку except :(
...
Рейтинг: 0 / 0
15.06.2017, 17:26:10
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39472574
Vizit0r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vizit0r
Участник
LisichkinА если серьезно?

81 файл содержит строку except :(

ну содержит. Так что, ты хочешь суперкнопку "сделать *хорошо* " ? Так чтоб все try..except магически преобраовались во что-то, что тебе понравится?
...
Рейтинг: 0 / 0
15.06.2017, 17:52:27
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39472603
Bred eFeM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bred eFeM
Участник
schi, Для любителей глотать исключения в аду приготовлен отдельный котел. И не один .

Правильно, второй для любителей их генерить направо и налево.
...
Рейтинг: 0 / 0
15.06.2017, 18:12:39
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39472617
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
Bred eFeMschi, Для любителей глотать исключения в аду приготовлен отдельный котел. И не один .

Правильно, второй для любителей их генерить направо и налево.А-ха-ха!
...
Рейтинг: 0 / 0
15.06.2017, 18:24:45
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39472620
GunSmoker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GunSmoker
Участник
Bred eFeM, ты ещё скажи, что этим блоком ловят не Access Violation, который не знают как исправить.
...
Рейтинг: 0 / 0
15.06.2017, 18:28:46
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39472663
Bred eFeM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bred eFeM
Участник
GunSmoker,
вот-вот, 81 Ufo Access Violation, а нужен только один:
Код: pascal
1.
program try Run; except WriteLn('Гипс снимают, клиент уезжает!'); end; end.
...
Рейтинг: 0 / 0
15.06.2017, 19:50:44
| Ответить | Цитировать | Написать  
Нет данных в стеке
    #39472955
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
Lisichkin,

GExperts поставь - там удобное средство просмотра результатов поиска есть.
...
Рейтинг: 0 / 0
16.06.2017, 10:56:33
| Ответить | Цитировать | Написать  
22 сообщений из 22, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Нет данных в стеке
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39472574&tid=2042141]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 202ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 192ms
total:  467ms
созд. / загр.: 467ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]