Range check error - Общие вопросы Delphi

MAcK · 23.03.2010, 17:23

На второй строке появляется ошибка:

Код:

if IsNumeric(crS.dbnum) and IsNumeric(dbLast) and IsNumeric(dm.cdsClaimDb1.AsString) then
if ( StrToInt(crS.dbNum) in [dm.cdsClaimDb1.AsInteger..StrToInt(dbLast)]) then // тут

Кто знает почему?

mutabor · 23.03.2010, 17:47

Директивы R- R+ (при условии что ты знаешь в чем причина исключения, и отдаешь себе отчет в том что ты отключаешь проверку диапазона).

Дельфи считает, что ты выходишь за пределы допустимого диапазона. Бывает что так и надо, например нулевые массивы, тогда просто отключаешь проверку, а контроль за выходом берешь на себя, зная реальный размер массива. А тут у тебя нужно подумать приведет ли это к ошибкам в работе программы, если нет то можно отключить.
По-моему таким способом можно только до 256 значений проверять, т.е. множества, отсюда и ошибка, или я путаю, вобщем попробуй сравнением определяй
if (StrToInt(crS.dbNum) > dm.cdsClaimDb1.AsInteger) and (StrToInt(crS.dbNum) < StrToInt(dbLast)) then

MAcK · 24.03.2010, 10:33

Работает, спасибо

23.03.2010, 17:47	#2
mutabor Телепат с дипломом Старожил Регистрация: 10.06.2007 Сообщений: 4,929	Директивы R- R+ (при условии что ты знаешь в чем причина исключения, и отдаешь себе отчет в том что ты отключаешь проверку диапазона). Дельфи считает, что ты выходишь за пределы допустимого диапазона. Бывает что так и надо, например нулевые массивы, тогда просто отключаешь проверку, а контроль за выходом берешь на себя, зная реальный размер массива. А тут у тебя нужно подумать приведет ли это к ошибкам в работе программы, если нет то можно отключить. По-моему таким способом можно только до 256 значений проверять, т.е. множества, отсюда и ошибка, или я путаю, вобщем попробуй сравнением определяй if (StrToInt(crS.dbNum) > dm.cdsClaimDb1.AsInteger) and (StrToInt(crS.dbNum) < StrToInt(dbLast)) then The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen) Проверь себя! Онлайн тестирование \| Мой блог Последний раз редактировалось mutabor; 23.03.2010 в 18:01.

24.03.2010, 10:33	#3
MAcK Форумчанин Регистрация: 09.11.2006 Сообщений: 274	Работает, спасибо Единственный приличный формат, разработанный Microsoft'ом, - format c:

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ищу причину ошибки: Error in loading DLL, она же Error 48.	hozpraktik	Microsoft Office Excel	1	19.11.2009 12:39
Check box	ruavia3	Microsoft Office Excel	6	17.11.2009 13:31
Использование CHECK	Golovastik	SQL, базы данных	3	11.11.2009 20:27
ReDim и Subscript out of range (Error 9)	oldfatham	Microsoft Office Excel	5	24.08.2009 18:32