Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Access Violation


Страницы:   1 2 3 4

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 проходил - в самом начале процедуры выскакивало...


Страницы:   1 2 3 4

Наверх

Титульная страница Поиск, карта сайта Написать письмо