|
|
|
Регистрация Восстановить пароль |
|||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
09.01.2014, 11:45
|
#1 |
|
Пользователь
Регистрация: 15.12.2013
Сообщений: 28
|
Delphi 7, безразмерный массив
Процедура TForm1.BitBtn1Click, файл для загрузки out.txt. Возникает ошибка в строке 162, прошу помочь выяснить причину.
|
|
|
|
09.01.2014, 12:34
|
#2 |
|
Старожил
Регистрация: 04.02.2009
Сообщений: 17,351
|
Отследите по точкам останова чему равно i-1
Маньяк-самоучка
Utkin появился в результате деления на нуль. Осторожно! Альтернативная логика 
|
|
|
|
|
09.01.2014, 12:35
|
#3 |
|
Пользователь
Регистрация: 15.12.2013
Сообщений: 28
|
1 получается.
|
|
|
|
|
09.01.2014, 12:49
|
#4 |
|
Старожил
Регистрация: 04.02.2009
Сообщений: 17,351
|
А чему равно i в SetLength(TMq,i); перед ошибкой? Вы не забыли, что нумерация идет от нуля, то есть один элемент это TMq[0] и всё?
Маньяк-самоучка
Utkin появился в результате деления на нуль. Осторожно! Альтернативная логика
|
|
|
|
|
09.01.2014, 12:58
|
#5 |
|
Пользователь
Регистрация: 15.12.2013
Сообщений: 28
|
I = 2, про отсчет с нуля помню, поэтому во всех присваиваниях стоит i-1. В момент прерывания until TMq[1]>=14400; Tmq=(0,600), то есть Tmq равно 600, но все равно возникает invalid floating point operation.
|
|
|
|
|
09.01.2014, 15:01
|
#6 |
|
Старожил
Регистрация: 04.02.2009
Сообщений: 17,351
|
TMq[1]>=14400.0 ?
Маньяк-самоучка
Utkin появился в результате деления на нуль. Осторожно! Альтернативная логика
|
|
|
|
|
09.01.2014, 16:03
|
#7 |
|
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Заменил просто Extended на Double - заработало. Но зациклилось для i=7, Tmq[i-1]=3600. Почему с Extended ошибку давало для меня загадка. Входные данные с десятичной точкой, а у меня в настройках винды - запятая, как следствие - сразу ошибка. DecimalSeparator в программе не настроен или каким-то другим образом нужно учитывать настройки винды. Код написан очень не прозрачно
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Последний раз редактировалось Аватар; 09.01.2014 в 16:19. |
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Безразмерный массив | Alexandr17-10 | Паскаль, Turbo Pascal, PascalABC.NET | 8 | 29.10.2013 22:05 |
| Дан одномерный массив, сформировать новый массив по заданному правилу {Delphi} | Nickolai47 | Помощь студентам | 5 | 16.12.2012 14:51 |
| Постоянный массив указателей на постоянный массив Delphi | Kreadlling | Общие вопросы Delphi | 2 | 16.04.2012 15:28 |
| безразмерный одномерный массив | SunKnight | Общие вопросы C/C++ | 1 | 20.02.2008 04:13 |
