|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.04.2017, 23:21 | #1 |
Пользователь
Регистрация: 05.10.2016
Сообщений: 12
|
Выдаёт ошибку adress violation on xxx - Delphi
Код:
_____ Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ) Модератор Последний раз редактировалось Serge_Bliznykov; 27.04.2017 в 09:59. |
26.04.2017, 23:29 | #2 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
Наерное здесь:
Код:
При i=str-1 => i+1=str, а это уже за пределами границ Может быть надо так : ? Код:
Последний раз редактировалось type_Oleg; 26.04.2017 в 23:31. |
26.04.2017, 23:40 | #3 | |
Пользователь
Регистрация: 05.10.2016
Сообщений: 12
|
Цитата:
(стало так) procedure TForm2.Button1Click(Sender: TObject); const str=12; stol=1; var a:array [0..str-1,0..stol-1] of real; i,j:integer; buf,summ:real; s,prob:string; begin prob:=' '; for i:=0 to str-1 do for j:=0 to stol-1 do a[i,j]:=strtofloat(stringgrid1.cells[i,j]); for i:=0 to str-1 do for j:=0 to stol-1 do if a[i,j]<0 then summ:=a[i,j]+summ; for i:=0 to str-2 do for j:=0 to stol-1 do if a[i,j]>a[i+1,j] then begin buf:=a[i,j]; a[i,j]:=a[i+1,j]; a[i+1,j]:=buf; end; label1.caption:=floattostrf(summ,ff fixed,0,3); for i:=0 to str-1 do for j:=0 to stol-1 do s:=s+floattostrf(a[i,j],fffixed,0,0)+prob; label2.caption:=s; end; Последний раз редактировалось jipumex@cartelera.; 26.04.2017 в 23:43. |
|
26.04.2017, 23:52 | #4 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите найти ошибку - StrToFloat выдаёт ошибку EConvertError для ячеек StringGrid (Delphi) | Artsiom | Помощь студентам | 10 | 18.12.2013 14:10 |
Ошибка access violation at adress | Fealhas | Общие вопросы Delphi | 6 | 26.03.2013 12:32 |
Access violation at adress | Volkogriz | Общие вопросы Delphi | 10 | 19.02.2013 15:41 |
Access violation at adress... | eatlant | Общие вопросы Delphi | 4 | 12.04.2011 12:34 |
Получаю ошибку Access violation at adress | fs444 | Общие вопросы C/C++ | 9 | 16.12.2009 08:04 |