Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.09.23;
Скачать: CL | DM;

Вниз

Проблемка   Найти похожие ветки 

 
AZIZE ©   (2007-08-22 14:37) [0]

Application.MessageBox выбивает прогу никогда такого небыло
может кто подскажет в чём проблема


 
Игорь Шевченко ©   (2007-08-22 14:37) [1]

в ДНК


 
AZIZE ©   (2007-08-22 14:38) [2]


> Игорь Шевченко ©   (22.08.07 14:37) [1]

а серьёзно


 
Kerk ©   (2007-08-22 14:39) [3]

в ДНК


 
AZIZE ©   (2007-08-22 14:42) [4]


> Kerk ©   (22.08.07 14:39) [3]

не я понимаю пошутить все горазд
текст проги
procedure TMainForm.Delete2Click(Sender: TObject);
begin  
 if Application.MessageBox("Вы действительно хотите удалить данную связь","Внимание!!!",mb_IconExclamation+mb_YesNo)=idYes then
 Begin  
   adtInfo.Locate("Nazvanie",frmPerson.adcInfoNazvanie.Value,[]);
   adtInfo.Delete;
   adtInfo.Refresh;
 end;  
end;

причем даже в случае коментирования всех операций с базой болт всёравно вылазит


 
Игорь Шевченко ©   (2007-08-22 14:43) [5]

it is impossible to answer your question because you did not provide enough solid information


 
Kerk ©   (2007-08-22 14:44) [6]

Я думал - это нормально, когда болт вылазит.


 
AZIZE ©   (2007-08-22 14:50) [7]


> Игорь Шевченко ©   (22.08.07 14:43) [5]

а какая инфо вам еще нужна?


 
Игорь Шевченко ©   (2007-08-22 14:53) [8]


> а какая инфо вам еще нужна?


ты считаешь, что приведенного кода и фраз "прогу выбивает" и "болт вылазит" достаточно ?


 
clickmaker ©   (2007-08-22 14:53) [9]


> Application.MessageBox выбивает прогу

то есть?


 
tesseract ©   (2007-08-22 14:53) [10]


  adtInfo.Locate("Nazvanie",frmPerson.adcInfoNazvanie.Value,[]);
  adtInfo.Delete;
  adtInfo.Refresh;


Это что за чёрт ? Пошаговый отладчик уже не пашет ?


 
TohaNik ©   (2007-08-22 14:58) [11]


> AZIZE ©   (22.08.07 14:42) [4]

Да уж, такое придумать сложней чем в пустые ворота с 3-х метров не попасть;)


 
@!!ex ©   (2007-08-22 15:01) [12]

А MessageDlg не катит?


 
Ricks ©   (2007-08-22 15:03) [13]

Попробуй не Application.MessageBox, а просто MessageBox на API. И ставь там PChar


 
Германн ©   (2007-08-22 15:04) [14]


> @!!ex ©   (22.08.07 15:01) [12]
>
> А MessageDlg не катит?
>

Тогда гайка вылетает :)


 
AZIZE ©   (2007-08-22 15:08) [15]


> clickmaker ©   (22.08.07 14:53) [9]

в момент выполнения программы вылазит ошибка
Project MDIAPP.exe raised exception class EAccessViolation with message with address "Access violation at address 0049E625 in module "MDIAPP.exe". Read of address 00000000"
Самый прикол в том что в другой процедуре то же самое работает нормально


 
Игорь Шевченко ©   (2007-08-22 15:09) [16]


> Project MDIAPP.exe raised exception class EAccessViolation
> with message with address "Access violation at address 0049E625
> in module "MDIAPP.exe". Read of address 00000000"


Это ужасно


 
@!!ex ©   (2007-08-22 15:10) [17]

> [15] AZIZE ©   (22.08.07 15:08)

А поточнее можно? В какой момент??


 
clickmaker ©   (2007-08-22 15:11) [18]


>  [15] AZIZE ©   (22.08.07 15:08)

а причем тут messagebox?


 
AZIZE ©   (2007-08-22 15:11) [19]


> @!!ex ©   (22.08.07 15:10) [17]

в момент нажатия на кнопку "Yes"


 
@!!ex ©   (2007-08-22 15:14) [20]

> [19] AZIZE ©   (22.08.07 15:11)


> а причем тут messagebox?


 
clickmaker ©   (2007-08-22 15:15) [21]


> [19] AZIZE ©   (22.08.07 15:11)

и даже так?

if Application.MessageBox("Вы действительно хотите удалить данную связь","Внимание!!!",mb_IconExclamation+mb_YesNo)=idYes then
Begin  
end;


 
umbra ©   (2007-08-22 15:15) [22]


> в момент нажатия на кнопку "Yes"
>

а если нажать "No" ? :)


 
AZIZE ©   (2007-08-22 15:16) [23]


> @!!ex ©   (22.08.07 15:14) [20]


> clickmaker ©   (22.08.07 15:11) [18]


а при том что именно в этой строке
if Application.MessageBox("Вы действительно хотите удалить данную связь","Внимание!!!",mb_IconExclamation+mb_YesNo)=idYes then
данный болт и вылазит


 
AZIZE ©   (2007-08-22 15:16) [24]


> clickmaker ©   (22.08.07 15:15) [21]

даже так


 
@!!ex ©   (2007-08-22 15:18) [25]

> [24] AZIZE ©   (22.08.07 15:16)

А WinAPI не рулит?


 
AZIZE ©   (2007-08-22 15:18) [26]


> а если нажать "No" ? :)

MessageBox закрывается


 
AZIZE ©   (2007-08-22 15:20) [27]


> А WinAPI не рулит?

да рулит просто любопытство заело в др. процедуре работает, а тут болт, какого - не ясно


 
Вася Правильный   (2007-08-22 15:21) [28]


> at address 0049E625

ходи сюда, вводи в отладчик, исправляй


 
clickmaker ©   (2007-08-22 15:21) [29]


> [24] AZIZE ©   (22.08.07 15:16)

если отладчиком зайти в Application.MessageBox, то на какой там строчке упадет?


 
Плохиш ©   (2007-08-22 15:26) [30]

Для того чтобы болты не вылетали, их надо крепить гайками. По аналогии, перед тем как интерпретировать содержание какой-то переменной как указатель на какой-то объект, надо убедиться, что в ней содержиться действительно действительная ссылка на этот объект.


 
Юрий Зотов ©   (2007-08-22 15:43) [31]

> AZIZE ©   (22.08.07 15:20) [27]

Ну и при чем же тут MessageBox?

Диалог показывается нормально? Нормально.
Его кнопки работают? Работают.
При нажатии на кнопку он закрыватся? Закрывается.
При закрытии возвращает верный результат? Верный.

Ну и при чем же тут тогда MessageBox, ежели он прекрасно работает? И делает точно то, что от него требуется, и не делает ничего лишнего.

Неужели не понятно, что косяк сидит в ВАШЕМ коде и что нужно пройти его отладчиком?


 
Плохиш ©   (2007-08-22 15:51) [32]


> Юрий Зотов ©   (22.08.07 15:43) [31]
> > AZIZE ©   (22.08.07 15:20) [27]
>
> Ну и при чем же тут MessageBox?

А кто ж тогда, Билл Гейтс виноват?


 
Anatoly Podgoretsky ©   (2007-08-22 21:04) [33]

Дурдом виноват.



Страницы: 1 вся ветка

Текущий архив: 2007.09.23;
Скачать: CL | DM;

Наверх




Память: 0.54 MB
Время: 0.027 c
15-1187768765
oldman
2007-08-22 11:46
2007.09.23
Компьютер под столом


15-1188199690
Ricks
2007-08-27 11:28
2007.09.23
Может ли "намагнититься" LCD монитор?


2-1188313403
самовар
2007-08-28 19:03
2007.09.23
Как сделать собственный dial-up сервер


1-1184077237
vasilii
2007-07-10 18:20
2007.09.23
о скорости чтения usb


2-1188370787
Бандерас
2007-08-29 10:59
2007.09.23
Дополнительно поле в Query