Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / 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]]]));

Andrewtitoff (2009-02-11 10:31:00) [61]
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;

Ega23 (2009-02-11 10:27:00) [62]

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

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

Palladin (2009-02-11 10:20:00) [63]
я вообще сомневаюсь, что
1. form1 существует
2. в кобобоксе8 в тексте стоит число

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

Германн (2009-02-11 10:19:00) [64]
Количество бригад надо либо уменьшить, либо увеличить!
Бо 13 - плохое число. Имхо и AV из-за этого :(

DrPass (2009-02-11 10:19:00) [65]
Вы смотрели краткое содержание сериала "Бригада"...

Сергей М. (2009-02-11 10:15:00) [66]
У отладчика не пробовал спросить ?
Ему виднее)

Ega23 (2009-02-11 10:15:00) [67]
Пипец. А один раз strtoint(Form1.ComboBox8.Text) вычислить - религия не позволяет?

Andrewtitoff (2009-02-11 10:12:00) [68]
brig : array[101..813] of integer; brigt : array[101..813] of real; uch : array[1..8,1..13]of integer;

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

Наверх

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