Access Violation

← →
Andrewtitoff © (2009-02-11 11:28) [40]

2 Сергей М.
На строчке
end;
в процедуре
procedure TForm1.Button3Click(Sender: TObject);

2 aik
Ставил..., все равно AV, ое ее почеиму то игнорирует...

2 Ega23
А как без with, через переменную что ли делать?, остальное исправвил.

2 All

Я ничего не понял, но похоже Ega23 был прав все дело в многократных вычислениях strtoint(Form1.ComboBox8.Text), вот так все заработало:
begin for n := 1 to 13 do begin uch[1,n]:=uch1[n]; uch[2,n]:=uch2[n]; uch[6,n]:=uch6[n]; uch[7,n]:=uch7[n]; uch[8,n]:=uch8[n]; end; for n := 101 to 813 do begin brig[n]:=0; brigt[n]:=0; end; d1 := 20; if s=1 then m1:=12 else m1 := s-1; if s=1 then y1:=strtoint(Form1.Combobox9.Text)-1 else y1 := strtoint(Form1.Combobox9.Text); d2 := 20; m2 := s; y2 := strtoint(Form1.Combobox9.Text); For nLikeADate:=Trunc(EncodeDate(y1,m1,d1)) to Trunc(EncodeDate(y2,m2,d2)) Do Begin if fileexists(MD+"\Z\"+DateToStr(nLikeADate)+".lft") then Begin with TFileStream.create(MD+"\Z\"+DateToStr(nLikeADate)+".lft", fmShareDenyNone) do try c:=trunc(Size/671); finally Free; end; with TFileStream.create(MD+"\Z\"+DateToStr(nLikeADate)+".lft",fmOpenRead) do try read(sms,671); for count := 1 to c-1 do begin read(sms,671); if {(sms.PLACE=Form1.ComboBox8.Text)and}(sms.Remont<>"Простой") then begin if (isNumber(sms.BRIGADE))and(sms.BRIGADE<>"") then begin k:=strtoint(sms.BRIGADE); inc(brig[k]); end else k:=0; if (copy(sms.Remont,3,1)=".")and(copy(sms.Remont,6,1)=".") then brigt[strtoint(sms.BRIGADE)]:=brigt[strtoint(sms.BRIGADE)]+0.5 else Begin uh:=copy(sms.Prostoy,1,2); um:=copy(sms.Prostoy,4,2); if uh="" then uh:="0"; if um="" then um:="0"; if isNumber(um)and isNumber(uh)then Begin o:=strtoint(um)/60; o:=o+strtoint(uh); brigt[k]:=brigt[k]+o; End; End; end; end; finally Free; end; end; end; f:=strtoint(Form1.ComboBox8.Text); ShowMessage( " Бригада 1: "+Format("%.4d",[brig[uch[f,1]]])+"/"+Format("%f", [brigt[uch[f,1]]])+#13#10+ " Бригада 2: "+Format("%.4d",[brig[uch[f,2]]])+"/"+Format("%f", [brigt[uch[f,2]]])+#13#10+ " Бригада 3: "+Format("%.4d",[brig[uch[f,3]]])+"/"+Format("%f", [brigt[uch[f,3]]])+#13#10+ " Бригада 4: "+Format("%.4d",[brig[uch[f,4]]])+"/"+Format("%f", [brigt[uch[f,4]]])+#13#10+ " Бригада 5: "+Format("%.4d",[brig[uch[f,5]]])+"/"+Format("%f", [brigt[uch[f,5]]])+#13#10+ " Бригада 6: "+Format("%.4d",[brig[uch[f,6]]])+"/"+Format("%f", [brigt[uch[f,6]]])+#13#10+ " Бригада 7: "+Format("%.4d",[brig[uch[f,7]]])+"/"+Format("%f", [brigt[uch[f,7]]])+#13#10+ " Бригада 8: "+Format("%.4d",[brig[uch[f,8]]])+"/"+Format("%f", [brigt[uch[f,8]]])+#13#10+ " Бригада 9: "+Format("%.4d",[brig[uch[f,9]]])+"/"+Format("%f", [brigt[uch[f,9]]])+#13#10+ "Бригада 10: "+Format("%.4d",[brig[uch[f,10]]])+"/"+Format("%f", [brigt[uch[f,10]]])+#13#10+ "Бригада 11: "+Format("%.4d",[brig[uch[f,11]]])+"/"+Format("%f", [brigt[uch[f,11]]])+#13#10+ "Бригада 12: "+Format("%.4d",[brig[uch[f,12]]])+"/"+Format("%f", [brigt[uch[f,12]]])+#13#10+ "Бригада 13: "+Format("%.4d",[brig[uch[f,13]]])+"/"+Format("%f", [brigt[uch[f,13]]])); end;

← →
Anatoly Podgoretsky © (2009-02-11 11:30) [41]

> а так да... за такой код - эцих с гвоздями на неделю, с
> последующим увольнением

Нахрен надо было принимать.

← →
Плохиш © (2009-02-11 11:34) [42]

> Нахрен надо было принимать.

Папик, видно, попросил.

← →
Andrewtitoff © (2009-02-11 11:36) [43]

2 Anatoly Podgoretsky
Куда принимать?
2 Плохиш
Вы вообще про что?...

← →
Anatoly Podgoretsky © (2009-02-11 11:44) [44]

> Andrewtitoff (11.02.2009 11:36:43) [43]

Тебе не понять про что мы.

← →
Сергей М. © (2009-02-11 11:48) [45]

> Andrewtitoff © (11.02.09 11:28) [40]
>
> На строчке end;
> в процедуре
> procedure TForm1.Button3Click(Sender: TObject);

А как ты там оказался ?

> ничего не понял

Это печально. Очень.

← →
Andrewtitoff © (2009-02-11 11:51) [46]

2 Сергей М.
Когда AV выскакивает почему то эта строчка выделяется...

← →
Сергей М. © (2009-02-11 11:53) [47]

> Andrewtitoff © (11.02.09 11:51) [46]

Причем здесь это ?
Ты пошагово (F7) прошел до строчки, при выполнении которой начинаются чудеса ?

← →
Anatoly Podgoretsky © (2009-02-11 11:55) [48]

> Andrewtitoff (11.02.2009 11:51:46) [46]

Когда AV выскакивает, то может любая строчка выделяться...

← →
Andrewtitoff © (2009-02-11 13:37) [49]

2 Сергей М
F8 проходил - в самом начале процедуры выскакивало...

← →
Плохиш © (2009-02-11 13:38) [50]

> Andrewtitoff © (11.02.09 13:37) [49]
>
> 2 Сергей М
> F8 проходил - в самом начале процедуры выскакивало.

И какие выводы ты сделал?

← →
Сергей М. © (2009-02-11 13:43) [51]

> F8 проходил - в самом начале процедуры выскакивало

В каком начале какой процедуры ?
Почему F8, а не F7 ? Спешишь куда-то ?)

← →
Andrewtitoff © (2009-02-11 15:38) [52]

2 Сергей М
Ну так получилось.., не возвращать же все обратно, раз все заработало...
В начале procedure TForm1.OtchetB(s : byte);..., почти сразу на сторочке d1 := 20;

← →
Сергей М. © (2009-02-11 15:50) [53]

> на сторочке d1 := 20;

Свежо предание, но верится с трудом)

← →
MsGuns © (2009-02-11 15:56) [54]

За такой код немедленно увольнение с обезглазением и обезрукиванием.
Дополнительно за "Form1" - кастрация

← →
MsGuns © (2009-02-11 15:59) [55]

У меня после таких кодов возникает вопрос, а люди, творящие подобное вообще что-либо слышали про АЛГОРИТМЫ. Или воистину нынче век программирующих уборщиц и сантехников ?

← →
Johnmen © (2009-02-11 16:06) [56]

> MsGuns © (11.02.09 15:59) [55]

Так ещё Ленин сказал, что кухарка может управлять государством. Ты что, не согласен с Лениным???
:)

← →
MsGuns © (2009-02-11 16:12) [57]

>Johnmen © (11.02.09 16:06) [56]
> Ты что, не согласен с Лениным??? :)

А кто это такой ?

← →
Andrewtitoff © (2009-02-11 16:15) [58]

Не шумите =)))
Я не программистом работаю и занимаюсь этим на добровольных основах и бесплатно..., а по поводу данной процедуры можно закрывать обсуждение т.к. я понял что она в корне не верна...

← →
han_malign © (2009-02-11 16:18) [59]

> при чем за один месяц почему то не выдает ошибку(ноябрь
> 2008), остальные месяцы - одинакова - AV, если нужно - могу
> полный код процедуры показать

- а скажи мне милый друг, чем у тебя массив uch заполнен? Особенно, для "остальных месяцев"...

Вставь перед своим потоком мысли {$R+}, и будет те щасте...

> Johnmen

Тсс-с-с !!

А то сейчас Копир явится)

>Andrewtitoff © (11.02.09 16:15) [58]

Уважаемый, если неплотник сделал дверь, которая не закрывается или не открывается, это его ни в коей мере не оправдывает. Если Вы взялись за программирование, то хотя бы не поленитесь почитать книжки и посмотреть примеры "правильного" кода, коих в Вашем компе тьма тьмущая (весь VCL к Вашим услугам).
Ну почему широко бытует мнение, что для разработки компьютерных программ учиться не нужно - достаточно поставить какую-нибудь делфу - и программируй !!!
Да и Бог с ними, с подобными "рукодельщиками", нехай балуются для собственного удовольствия - все ж лучше чем колоться или шляться по дискотекам, так нет, норовит же такой самоделкин показать свое "произведение", да еще и вумную фразу влепить по поводу "глючности" инструмента. Пила, видишь ли, крива, и топор не так рубит.

упс, две страницы забыл просмотреть...

> MsGuns (11.02.2009 16:24:01) [61]

И суметь всучить "продукт" не понимающим пользователям, убивая индустрию на корню.
Это даже не самоделкин получается, а диверсант.

> Anatoly Podgoretsky © (11.02.09 16:28) [63]

Не, это вредитель, как определено тов.Сталиным. Самое опасное существо.

Спаси и сохрани от Копира... Одна надежда - он сюда не заглядывает.
:)

Не упоминайте имени Копира всуе :)

> Johnmen © (11.02.09 16:43) [64]

> MsGuns © (11.02.09 16:47) [65]

))

Будем надеяться, что эта столь содержательная ветка не поедет в "Потрепаловку", иначе спасайся кто может)

+10 к "код - бред"

> MsGuns (11.02.2009 16:47:05) [65]

А то придет :-)

Access Violation Найти похожие ветки