![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Access Violation
Andrewtitoff © (2009-02-11 10:11:00)Здравствуйте!, подскажите пожалуйста что тут не так?, выскакивает ошибка Access Violation at adress 00404D68 in module 'otchet.exe'. Read of adrdress 403DFFF8
ShowMessage(
' Бригада 1: '+Format('%.4d',[brig[uch[strtoint(Form1.ComboBox8.Text),1]]])+'/'+Format('%f', [brigt[uch[strtoint(Form1.ComboBox8.Text),1]]])+#13#10+
' Бригада 2: '+Format('%.4d',[brig[uch[strtoint(Form1.ComboBox8.Text),2]]])+'/'+Format('%f', [brigt[uch[strtoint(Form1.ComboBox8.Text),2]]])+#13#10+
' Бригада 3: '+Format('%.4d',[brig[uch[strtoint(Form1.ComboBox8.Text),3]]])+'/'+Format('%f', [brigt[uch[strtoint(Form1.ComboBox8.Text),3]]])+#13#10+
' Бригада 4: '+Format('%.4d',[brig[uch[strtoint(Form1.ComboBox8.Text),4]]])+'/'+Format('%f', [brigt[uch[strtoint(Form1.ComboBox8.Text),4]]])+#13#10+
' Бригада 5: '+Format('%.4d',[brig[uch[strtoint(Form1.ComboBox8.Text),5]]])+'/'+Format('%f', [brigt[uch[strtoint(Form1.ComboBox8.Text),5]]])+#13#10+
' Бригада 6: '+Format('%.4d',[brig[uch[strtoint(Form1.ComboBox8.Text),6]]])+'/'+Format('%f', [brigt[uch[strtoint(Form1.ComboBox8.Text),6]]])+#13#10+
' Бригада 7: '+Format('%.4d',[brig[uch[strtoint(Form1.ComboBox8.Text),7]]])+'/'+Format('%f', [brigt[uch[strtoint(Form1.ComboBox8.Text),7]]])+#13#10+
' Бригада 8: '+Format('%.4d',[brig[uch[strtoint(Form1.ComboBox8.Text),8]]])+'/'+Format('%f', [brigt[uch[strtoint(Form1.ComboBox8.Text),8]]])+#13#10+
' Бригада 9: '+Format('%.4d',[brig[uch[strtoint(Form1.ComboBox8.Text),9]]])+'/'+Format('%f', [brigt[uch[strtoint(Form1.ComboBox8.Text),9]]])+#13#10+
'Бригада 10: '+Format('%.4d',[brig[uch[strtoint(Form1.ComboBox8.Text),10]]])+'/'+Format('%f', [brigt[uch[strtoint(Form1.ComboBox8.Text),10]]])+#13#10+
'Бригада 11: '+Format('%.4d',[brig[uch[strtoint(Form1.ComboBox8.Text),11]]])+'/'+Format('%f', [brigt[uch[strtoint(Form1.ComboBox8.Text),11]]])+#13#10+
'Бригада 12: '+Format('%.4d',[brig[uch[strtoint(Form1.ComboBox8.Text),12]]])+'/'+Format('%f', [brigt[uch[strtoint(Form1.ComboBox8.Text),12]]])+#13#10+
'Бригада 13: '+Format('%.4d',[brig[uch[strtoint(Form1.ComboBox8.Text),13]]])+'/'+Format('%f', [brigt[uch[strtoint(Form1.ComboBox8.Text),13]]]));
Anatoly Podgoretsky (2009-02-11 17:00:00) [1]> MsGuns (11.02.2009 16:47:05) [65]
А то придет :-)
{RASkov} (2009-02-11 16:52:00) [2]+10 к "код - бред"
Сергей М. (2009-02-11 16:49:00) [3]
> Johnmen © (11.02.09 16:43) [64]
> MsGuns © (11.02.09 16:47) [65]
))
Будем надеяться, что эта столь содержательная ветка не поедет в "Потрепаловку", иначе спасайся кто может)
MsGuns (2009-02-11 16:47:00) [4]Не упоминайте имени Копира всуе :)
Johnmen (2009-02-11 16:43:00) [5]
> Anatoly Podgoretsky © (11.02.09 16:28) [63]
Не, это вредитель, как определено тов.Сталиным. Самое опасное существо.
Спаси и сохрани от Копира... Одна надежда - он сюда не заглядывает.
:)
Anatoly Podgoretsky (2009-02-11 16:28:00) [6]> MsGuns (11.02.2009 16:24:01) [61]
И суметь всучить "продукт" не понимающим пользователям, убивая индустрию на корню.
Это даже не самоделкин получается, а диверсант.
han_malign (2009-02-11 16:26:00) [7]упс, две страницы забыл просмотреть...
MsGuns (2009-02-11 16:24:00) [8]>Andrewtitoff © (11.02.09 16:15) [58]
Уважаемый, если неплотник сделал дверь, которая не закрывается или не открывается, это его ни в коей мере не оправдывает. Если Вы взялись за программирование, то хотя бы не поленитесь почитать книжки и посмотреть примеры "правильного" кода, коих в Вашем компе тьма тьмущая (весь VCL к Вашим услугам).
Ну почему широко бытует мнение, что для разработки компьютерных программ учиться не нужно - достаточно поставить какую-нибудь делфу - и программируй !!!
Да и Бог с ними, с подобными "рукодельщиками", нехай балуются для собственного удовольствия - все ж лучше чем колоться или шляться по дискотекам, так нет, норовит же такой самоделкин показать свое "произведение", да еще и вумную фразу влепить по поводу "глючности" инструмента. Пила, видишь ли, крива, и топор не так рубит.
Сергей М. (2009-02-11 16:19:00) [9]
> Johnmen
Тсс-с-с !!
А то сейчас Копир явится)
han_malign (2009-02-11 16:18:00) [10]
> при чем за один месяц почему то не выдает ошибку(ноябрь
> 2008), остальные месяцы - одинакова - AV, если нужно - могу
> полный код процедуры показать
- а скажи мне милый друг, чем у тебя массивuchзаполнен? Особенно, для "остальных месяцев"...
Вставь перед своим потоком мысли{$R+}, и будет те щасте...
Andrewtitoff (2009-02-11 16:15:00) [11]Не шумите =)))
Я не программистом работаю и занимаюсь этим на добровольных основах и бесплатно..., а по поводу данной процедуры можно закрывать обсуждение т.к. я понял что она в корне не верна...
MsGuns (2009-02-11 16:12:00) [12]>Johnmen © (11.02.09 16:06) [56]
> Ты что, не согласен с Лениным??? :)
А кто это такой ?
Johnmen (2009-02-11 16:06:00) [13]
> MsGuns © (11.02.09 15:59) [55]
Так ещё Ленин сказал, что кухарка может управлять государством. Ты что, не согласен с Лениным???
:)
MsGuns (2009-02-11 15:59:00) [14]У меня после таких кодов возникает вопрос, а люди, творящие подобное вообще что-либо слышали про АЛГОРИТМЫ. Или воистину нынче век программирующих уборщиц и сантехников ?
MsGuns (2009-02-11 15:56:00) [15]За такой код немедленно увольнение с обезглазением и обезрукиванием.
Дополнительно за 'Form1' - кастрация
Сергей М. (2009-02-11 15:50:00) [16]
> на сторочке d1 := 20;
Свежо предание, но верится с трудом)
Andrewtitoff (2009-02-11 15:38:00) [17]2 Сергей М
Ну так получилось.., не возвращать же все обратно, раз все заработало...
В начале procedure TForm1.OtchetB(s : byte);..., почти сразу на сторочке d1 := 20;
Сергей М. (2009-02-11 13:43:00) [18]
> F8 проходил - в самом начале процедуры выскакивало
В какомначале какойпроцедуры ?
Почему F8, а не F7 ? Спешишь куда-то ?)
Плохиш (2009-02-11 13:38:00) [19]
> Andrewtitoff © (11.02.09 13:37) [49]
>
> 2 Сергей М
> F8 проходил - в самом начале процедуры выскакивало.
И какие выводы ты сделал?
Andrewtitoff (2009-02-11 13:37:00) [20]2 Сергей М
F8 проходил - в самом начале процедуры выскакивало...