Access Violation

← →
Andrewtitoff © (2009-02-11 10:11) [0]

Здравствуйте!, подскажите пожалуйста что тут не так?, выскакивает ошибка 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]]]));

← →
Andrewtitoff © (2009-02-11 10:12) [1]

brig : array[101..813] of integer; brigt : array[101..813] of real; uch : array[1..8,1..13]of integer;

← →
Ega23 © (2009-02-11 10:15) [2]

Пипец. А один раз strtoint(Form1.ComboBox8.Text) вычислить - религия не позволяет?

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

У отладчика не пробовал спросить ?
Ему виднее)

← →
DrPass © (2009-02-11 10:19) [4]

Вы смотрели краткое содержание сериала "Бригада"...

← →
Германн © (2009-02-11 10:19) [5]

Количество бригад надо либо уменьшить, либо увеличить!
Бо 13 - плохое число. Имхо и AV из-за этого :(

← →
Palladin © (2009-02-11 10:20) [6]

я вообще сомневаюсь, что
1. form1 существует
2. в кобобоксе8 в тексте стоит число

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

← →
Ega23 © (2009-02-11 10:27) [7]

> в кобобоксе8 в тексте стоит число

Это было бы всё-таки EConvertError, а не AV.

← →
Andrewtitoff © (2009-02-11 10:31) [8]

2 Palladin
form1 - существует
var Form1: TForm1;
В комбо боксе - точно число!
т.к. Style : csOwnerDrawFixed
и в Items просто забито:
1
2
6
7
8

при чем так все работает:
For f:=1 to 13 do Begin StringGrid1.Cells[1,f]:=Format("%.4d",[brig[uch[strtoint(Form1.ComboBox8.Text),f]]]); StringGrid1.Cells[2,f]:=Format("%f", [brigt[uch[strtoint(Form1.ComboBox8.Text),f]]]); End;

← →
Германн © (2009-02-11 10:35) [9]

> при чем так все работает:

Всё страньше и страньше! (с)

← →
Ega23 © (2009-02-11 10:36) [10]

> form1 - существует
>
> var
> Form1: TForm1;

LOL!

на тебе код:

procedure TForm1.Button1OnClick(Sender : TObject); var bmp : TBitmap; begin bmp.LoadFromFile("D:\test.bmp"); Image1.Picture.Assign(bmp); end;

Как ты думаешь, почему на первой же строчке у тебя AV вывалится?

← →
Sergey13 © (2009-02-11 10:37) [11]

> [5] Германн © (11.02.09 10:19)
> Количество бригад надо либо уменьшить, либо увеличить!

У автора может отдельные программы на разное количество бригад. 8-)

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

2 Ega23
Ну наверное потому что такого файла не существует....
А при чем тут Form1?, у меня же действительно существует.., ето единственная форма которая есть в проекте...

← →
Ega23 © (2009-02-11 10:41) [13]

> Ну наверное потому что такого файла не существует....

Всё понятно. Немедленно бери книжку в руки и читай про объекты, конструкторы, деструкторы и время жизни.

← →
Palladin © (2009-02-11 10:42) [14]

у тебя одна одна единственная вот такая комманда выполняется, она единственная на форме, и она и только она выдает ошибку?

← →
AIK © (2009-02-11 10:45) [15]

> Ega23 © (11.02.09 10:41) [13]

http://www.delphisources.ru/pages/faq/base/access_violation.html

← →
Плохиш © (2009-02-11 10:49) [16]

> Andrewtitoff © (11.02.09 10:11)
>
> Здравствуйте!, подскажите пожалуйста что тут не так?, выскакивает
> ошибка

Вообще-то здесь конференция "Начинающим", а не служба удалённой отладки бредонедокода.

← →
Плохиш © (2009-02-11 10:51) [17]

> AIK © (11.02.09 10:45) [15]

Ты уверен, что Ega23 твоя ссылка нужна? Может всё-таки переадресуешь её аФФтару?

← →
aik © (2009-02-11 10:51) [18]

> AIK © (11.02.09 10:45) [15]
> > Ega23 © (11.02.09 10:41) [13]

Упс... извеняюсь адресовано на пост:

> Andrewtitoff © (11.02.09 10:40) [12]
> 2 Ega23Ну наверное потому что такого файла не существует.
> ...А при чем тут Form1?, у меня же действительно существует.
> ., ето единственная форма которая есть в проекте...

← →
Andrewtitoff © (2009-02-11 10:53) [19]

2 Ega23
bmp:=TBitmap.Create;

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

← →
Palladin © (2009-02-11 10:53) [20]

представь, да, нужно, и не только мне

← →
Andrewtitoff © (2009-02-11 10:54) [21]

← →
Ega23 © (2009-02-11 10:55) [22]

> http://www.delphisources.ru/pages/faq/base/access_violation.html

По данной ссылке:

TMyClass = class (TObject) public function Foo : string; end; TForm2 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form2: TForm2; implementation {$R *.dfm} { TMyClass } function TMyClass.Foo: string; begin Result := "TMyClass.Foo"; end; procedure TForm2.Button1Click(Sender: TObject); var obj : TMyClass; begin ShowMessage(obj.Foo); end;

:)

← →
aik © (2009-02-11 10:55) [23]

> при чем за один месяц почему то не выдает ошибку(ноябрь 2008)

Наверное это счастливый месяц )))

← →
Ega23 © (2009-02-11 10:56) [24]

> если нужно - могу полный код процедуры показать

Надо с этого начинать.

← →
Плохиш © (2009-02-11 10:57) [25]

> Andrewtitoff © (11.02.09 10:54) [21]

Маленький глупый партизан нафига ты сюда припёрся. Здесь не гестапо, партизанов не пытают, а мочат жестоко...

← →
Andrewtitoff © (2009-02-11 10:58) [26]

2 Palladin

procedure TForm1.OtchetB(s : byte); var nLikeADate:Integer; d1 : word; m1 : word; y1 : word; d2 : word; m2 : word; y2 : word; c : integer; count : integer; sms : MYString; strc : Integer; i,n : integer; k : integer; o : real; uh : string; um : string; brig : array[101..813] of integer; brigt : array[101..813] of real; uch : array[1..8,1..13]of integer; const uch1 : array[1..13]of integer =(101,102,103,104,105,106,107,0,0,0,0,0,0); uch2 : array[1..13]of integer =(201,202,203,204,205,206,207,208,209,210,211,0,0); uch6 : array[1..13]of integer =(601,602,603,604,605,606,607,608,609,0,0,0,0); uch7 : array[1..13]of integer =(701,702,0,704,705,0,0,0,0,0,0,0,0); uch8 : array[1..13]of integer =(801,802,803,804,805,806,807,808,809,810,811,812,813); 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 brig[n]:=0; for n := 101 to 813 do brigt[n]:=0; 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; 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]]])); end;

← →
Andrewtitoff © (2009-02-11 10:59) [27]

procedure TForm1.Button3Click(Sender: TObject); begin if combobox9.Text="" then ShowMessage("ОШИБКА: Введите все данные...") else OtchetB(2); end;

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

> Ega23 © (11.02.09 10:56) [24]
>
>
> > если нужно - могу полный код процедуры показать
>
>
> Надо с этого начинать.

Вот тут ты не прав, о великий удалённый отладчик чужого бредокода, начинать надо было с F7/F8 ;-)

И так на каждуй месяц

2 Плохиш
F8 - не помогает.., останавливается в процедуре procedure TForm1.Button3Click(Sender: TObject);

> останавливается в процедуре

Это хорошо.
ну а дальше ?

Это п-ц... какой-то....

Теперь по порядку.
1. Перепиши код без with. У тебя там вложенные встречаются, причём достаточно бездумно.
2. strtoint(Form1.ComboBox8.Text) и прочие подобные перлы должны быть вычеслены один раз. А по ходу уже значение вычесленной переменной использовать.
3. Код не просто ужасен, а (я даже слов таких не знаю). Короче, с вероятностью 0.999 в этом говнокоде никто разбираться не будет.

> Andrewtitoff © (11.02.09 11:01) [30]
>
> 2 Плохиш
> F8 - не помогает

Так он просто так не помогает, его прикормить и приласкать надо.

PS. Во всех версиях делфи имеется окошко Watch, в которое можно вывести значения каких-либо переменных.

> п-ц... какой-то....
>

Дом-2

2 Сергей М
Дальше AV

> Дом-2

В "Доме" у некоторых участников хотя бы сиськи есть. А тут...

> Сергей М. © (11.02.09 11:09) [34]
>
>
> > п-ц... какой-то....
> >
>
>
> Дом-2
> Andrewtitoff © (11.02.09 11:09) [35]
>
> 2 Сергей М
> Дальше AV

Эт точно! Дурдом-2!

> Andrewtitoff © (11.02.09 11:01) [30]
> 2 ПлохишF8 - не помогает.., останавливается в процедуре
> procedure TForm1.Button3Click(Sender: TObject);

есть такая красная точечка которую можно поставить слева от первого бегина

> begin
> for n := 1 to 13 doBegin

нажав на синею точечку запустить программу нажать на кнопку и потом кликать на F8, F7 и следить где именно выходит ошибка

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;

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